ae 


—————————————————————eE 


DDDDDDDDDDDD 
DDDDDDDDDDDD 


DODDDDDDDDDD 
DDD DOD 


DDDDDDDDDODD 
DDDDDDDDDODD 


) DDD 
DDDDDODDDDDD 


ee 
as oe Oe 
mmm 


ee ae ns Oe ee Bes De Be Be es Od Bd ne Bd Bs Bo Oa bane Be ee eo 
ee eee ee 
Ge cin ey en Deeg Ee bet Oe Lee es Bs Dene ne Oe Dee Pd Ge bd ee Gt 
MMMMMMMMMMMMMMMenMMMmrmnceniecry 
MMMM MMMMMMMMMMMmMmMmnenicrniey 
MMMMMMMMMMMMMMMMMMmmMencnicny 


BBS SSSSVSSESSSS IE 


**F ILE**1D**NODRIVER 


L 
LLELLLLLLLL 
LLLLLLLLLL 


e 


S8S8SSS8SsS 
S888S8SsSss 


— 
bee as at st bn be bs at bt bt tt ss be 


1 lam 


Base bane Fat See bana Pee at en Bt Pat Dat Bet a ee 
eas tee 


ees 
Peat Dene), 


ee 
oo 
oo 
poe ee 


PE a ane ba nn BS be 8 a ne os Bw 
ee te Pt pe be ne ne bs Bt 
MMMmMmMmMmMmmMmmmmncny 
MMMMMmMmMmMmmMmmMmmMmmncn 


nae 
a as 


K 12 
= VAX/VMS DMF32 Async DDMCP Line Driver 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 Page 0 


RIVER 
le of contents 
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(14) $3 P2 buffer verification tables 
(17) 8 NOSCONTROL es = Initialize Sync Line device 
(18) 3} NOSUNIT_INIT = Initialize the device unit 
(20) 7 NOSXMITFDT = Transmit 1/0 FDT routine 
(21) 929 COM_XMI -¢ n transmit FDOT routine 
( ¢} oN NOSALT_ENTRY = Alternate 1/0 entr 
(23) 110 SRCVFDT = Receive 1/0 FDT routine 
(24) 11 NOSSETMOD » .Set mode 1/0 operation FDOT routine 
(25) 176 SETMODE CTRL, Perform setmode FDOT operation on controller 
(26) 14 ALLOC_BOFFER, Allocate a buffer 
(27) 1314 INIT NO BUFFER = Initialize NOB extension 
(28) 1591 NOSSENSEMODEFDT, Sense Mode 1/0 operation FDOT routine 
(29) 4k SENSEMODE CTRL, Perform SENSEMODE FDOT pracess ing for controller 
(30) = 182 SENSE _MODEM = Perform SENSEMODE READ_MODEM FDT processing 
(31) 1869 GET_CRAR_BUFS, Get P1 and P2 characteristics buffers 
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(34) Ose ALLOC P2BUF , Allocate a P2 buffer and charge user's quota 
(35) 0 HG_U ange UCB and the NOB parameter values 
(37) 181 CHG-TRIB, Change trib parameter values 
(38) 230 NOSSTARTIO = Start setmode 1/0 operation 
(39) $96 START_TRANSMIT = Start transmit 
(40) 76 GET_XAT = Get next transmit ti send 
(41) 448 READ_MODEM = Read device modem register 
$e? 471 FILL DUETIME_TABLE = Set up the due time table 
(43) 522 START = Star€ unit, device and/or protocol 
(46) 739 Set protoces characteristic 
(47) 792 FILLFREELIST = FILL MESSAGE FREE LIST 
(48) 854 START_RECEIVE and GET RECEIVE - Start receive and Get a receive buff 
(49) 937 NOSGETNXT = Class driver GETNXT routine 
(50) 186 NOSPUTNXT = Asynch class driver receive character routine 
(51) 384 NOSCLASS_PORTFORK = Asycnh DDCMP fork routines 
(9) 47 NOSSETUP_UCB = Asynch DDCMP set up UCB 
(53) $6 NOSPORT_TRANSITION = Asynch DDCMP port transition routine 
(55) 349 NOSREADERROR = Asynch DDCMP read error routine 
(57) $258 NOSCLASS_DISCONNECT = Asynch DDCMP class disconnect 
(58) a2) NOSCLASS_POWERACTION - Rayech DDCMP power action 
(59) 1g L_= Asynch DDCMP null routine 
(61) $5 FORKDONE = Fork process 
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(63) 800 FINISH_RCV_IO = Finish receive 1/0 processing 
(65) 869 TRANSMIT DONE - Transmit completion routine 
(68) 4011 NOSREGDUMP - Error log and qiagnost ics register dump 
td 4033 Poke user process on attention condition 
(70) $368 TIMEOUT = TIMEOUT 
(71) 420 NOSCANCEL = Cancel I/0 rotuine 
(72) 4249 CLEAR_NO_BUFFER = Clear NO buffer and disconnect the port 
(74) 4 % SHUTDOWN” = Shut down unit, device and/or protoco 
(77) é VALIDATE _P2, Validate P purser parameters 
(77) 45 VALIDATE_P2_TRIB, Validate P2 buffer with Trib param 
(77) 4535 VALIDATE P2_UCB, Validate P2 buffer with u¢ 
(78) 4 $ UPDATE _P2, Update UCB/TRIB based on P2 buffer parameters 
(79) 4 RETURN_P2, Return UCB/DDCMP buffer parameters 
(80) 4797 UNPACK_P2_BUF, Unpack a P2 parameter from P2 buffer 
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ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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ABSTRACT: 


This module contains the Async DDCMP Line driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


AUTHOR: 
Meg Dumont 1-0CT-83 
MODIFIED BY: 


v04-001 ™MD0328 Meg Dumont, 5-Sep-1984 18:16 
Fix bugs in the xmt error, error paths. 


v03-008 mMD0322 Meg Dumont, 13-Aug-1984 8:55 
Fix to SENSEMODE_CTRL where DDCMP could be called without 
the protocol/NOB buffers having been set up. 


v03-007 MMD0318 Meg Dumont, 25-Jul-1984 11:34 
Fix to clear the GFB before giving it to protocol and fix 
to DEVTIMER, we were using the wrong register in testing the 
timeout conditions. 


v03-006 LMP0275 L. Mark Pilant, 12-Jul-1984 12:30 
Initialize the ACL info in the ORB to be a null descriptor 
list rather than an empty queue. This avoids the overhead 
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| 
of Locking and unlocking the ACL mutex, only to find out | 
that the ACL was empty. 


v03-005 MMD0299 Meg Dumont, 18-May-1984 10:26 
Fix to returning of quota on Line startup. Also fix to check 
that the buffers are allocated before using them in the 
sensemode paths’. 


V03-004 MMD0297 syd Dumont, 
Fix bug in COM_XMITFDT error path 


v03-003 MMD0294 Meg Dumont, 23-Apr-1984 16:02 
Fix so that if the TFB address is not valid the driver won't 
try to do an XMIT. Fix to support a new interface with the 
protocol. This interface is designed to fix problems with 
retransmitting messages out of order. 


v03-002 LMP0221 L. Mark Pilant, 27-Mar-1984 10:13 
pnen Wr * peecattaai to ORBSL_OWNER and UCBSW_VPROT to 


v03-001 MMD0262 Meg Dumont, 22-Mar-1984 14:40 
Fix so that the driver doesn't crash if an XMT or RCV 
is queued to the device before the device is started. 
Add support for timers on receives and transmits. 
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? 3; System definitions 
9 


OOOOoo 


AST control 

Controller request block 
Complex buffer block 
Device data block 
Constant def’s for DDCMP 
Device charateristics 


an" 


e table 
Global field definitions 
1/0 function codes 
ppzecrupe priority levels 
1/0 packets 
Job information block 
Message field descriptor 
Network management def's 
Object's Rights Block offsets 
Process control block 
srotes service status 
DDCMP buffer def's 
Terminal characteristics 


Def terminal macros - 
Define terminal definitions 
Define terminal modem signals 
Terminal UCB extension 

Define terminal vectors 

Timer queue element def's 
Unit control block 


SXMDEF : XMDRIVER symbols 
SXMTQDEF Transmit Q def's 
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3; Local macros 


«MACRO SETBIT POS,BAS,?L ; Set a single bit 

. BBSS POS,BAS,L 

-ENDM © SETBIT 

eMACRO CLRBIT POS,BAS,?L : Clear a single bit 
BBCC POS,BAS,L 


&. 
eENDM = CLRBIT 
3; Bit Definitions 
-MACRO BITDEF BLK,SYM,BITVAL 


"BLK'_V_'SYM® = BITVAL 
"BLK'"M"'SYM® = la<BITVAL> 
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~ENDM 
; Constant definitions 
«MACRO CONSTDEF BLK,SYM,CONSTVAL 
"BLK'SC_'SYM' = CONSTVAL 


; Set up the duetim table 
.MACRO STORE_DUETIM BAUDRATE ,BITS,RESULT1,RESULT2, TABLE 
DIVW3 #'BAUDRATE’,BITS,RESULT1 
ADDW2 #1,RESULTI 
MOVIBL #TT$C_BAUD_"*BAUDRATE' ,RESULT2 
MOVW - RESULT1, TABLECRESULT24 


-ENDM STORE_DUETIM | 
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-MACRO PARAM TYPE,OFFSET,WIDTH,MIN,MAX, INVALID, BASE | 
INPUTS: 


+ 
to 


arameter type 

*Oftset in the data structure to current velue 
Width of field in the data structure (B,W,L) 
inimum value parameter is allowed to take 

ax imum votue parameter is allowed to take 
INVALID = Invalid f ags n grote word 
BASE = Data base (LINE,TRIB 


IF se TYPE 


FALSE 
S$STYP = TYPE & PRM_M_TYPE 


a ieity type code 
LIF NOT_BLANK <MIN>> $$$ VP + serve! phn M_M 


NOK 
SOOOO0O0O00 OOO 000000000000 09000909 SI NIN NIN NINO AAA OAO 
SOOO NAME WN 9 OD NAME WN OOD NAUE WN OOONOUS 


-IIF NOT-BLANK <MAX>, SS$$TYP = $SSTYP!PRM_M MoMAX 
LIF NOT =BLANK <INVALID>, $$stvP s SSSTYPTPRM M_INVALID 
SSSOFF = OFFSET & OFF_M_VALUE 3: Isolate offset only 
$$$WID = 0 ; Set null width 

0000 LIF IDN <WIDTH><B>, S$$WID = <1a0FF_V_WIDTH> 

0000 LIF IDN <WIDTH><W>, $$$WID = <2a@0FF-V—WIDTH> 

0000 -LIF IDN <WIDTH><L>, S$$WID = <S@0FF_V_WIDTH> 

0000 «WORD S$$SOFF!$S$SWID 

0000 -ITIF NOT BLANK <MIN>, .WORD MIN 

0000 -TIF NOT-BLANK <MAX>, .WORD MAX 

0000 LIF NOT-BLANK <INVALID> P WORD INVALID 

0000 "BASE’ _PRM_BUFSIZ = ‘BASE _PRM -BUFSIZ + 6 

0000 -ENDC 

i$ SENDM PARAM 

0000 -MACRO SKIP BIT,LOC,REG, CONTEXT= W,?L 3; SKIP FIELD 

0000 8 #BIT,LOC,L Br if field not present 

0000 TST* CONTEXT (REG) + : Skip next field 

0000 L: 

0000 -ENDM SKIP 
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+4 

This macro translates into the CASEx inetrust ten. It calculates the 
“base’’ and ' ‘Limit’ parameters from the < aden .€i apt acqnent> list 
specfied in the vector parameter. The dispatch table is set a 
such that ~ unspec bes index value pce the bounds of the 
transfer vect or is associated with a diplacement which transfers 
control to the first location after the CASE statement, i.e., behaves 


00 - 
09 53 
ae 
gan 308 | 
000 1 ; as if the index were out of bounds. 
00 18 : Example: 
BB 13 : SDISPATCH RO,<- ; Message type in RO 
9000 1 ; sindex displacement 
0000 18 ; <Cl, NSP$RCV_CI>,- :; Process Cl message 
0000 19 ; <cC, NSPS$RCV~CC>, = ; Process CC message 
0000 0; <Ol, NSP$RCV_DI>,- ; Process DI message 
44 1 : . <oCc, NSPSRCV_DI>,= : Process DC message 
444 S ; BRW NSPSRCV_ILLMSG ; Message type unknown 
0000 5 “MACRO SDISPATCH, INDX, VECTOR, TYPE=W,NMODE=S“*#, ?MN, ?MX,?7S,?SS,222 
0000 397 
0000 ; 8 «MACRO $DSP1,$DSP1 
0000 9 . IRP $051 _2,$DSP1_1 
0000 0 $DS $DSP1_2 
0000 31 
cot eee 
44 $e -MACRO wart soshe. i. sa 8 
0000 36 - WORD SDSP P2_2 
0000 37 -ENDM 
0000 339 
0000 240 -MACRO $BND1,$BND1 1_2,$BND1_3 
0000 41 $BND2- SBNBI 1 BN * 
a an 
000 44 ~MACRO apne. $BND2_1,$BND2 2 
000 45 -1IF $BNDB2_1 a SBNDS 2-., -=$BND2_2 
oe Bho anne 
000 48 -MACRO $BND $BND_1 2 
0900 49 . IRP $BND- es BNS _2> 
00 50 $BNDT “SEND 1,$BND_3 
0000 51 -ENDR 
000 26 ~ENDM 
4 5 
$0 33 22: “ 
0 36 ; $BND GT, <VECTOR> 
0 2 MX: 
0 8 $BND LT,<VECTOR> 
0 59 MN: 
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“won 


ASE' TYPE 


INDX , #<MN-Z7Z>,NMODE * <MX-MN> 


-REPT =MX=MNG1 
oe <MX-MN>#2 + 2 


$DSP1 <<VECTOR>> 
o=<MX-MND>#2 + S + 2 
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- Standard Driver Tables EP-19 41 CORIVER.SRCINODRIVER.MAR;2 
hi -SBTTL Standard Driver Tables 
0000 9 -PSECT $$$105_PROLOGUE 
8 ¢ : Driver Prologue Table 
0 4 NOSDPT: 
0 5 
8 § DPTAB - 
Fencecaste END,- 3; End of driver plus DDOCMP 
00 3 FLAGS=DPTSA NOUNLOAD , ~ ; Set driver can't be reloaded 
4 ADAPT ge =NUL 3 no hardware assoc with driver 
0 UCBSIZE=UCBS¢_TL_LENGTH,- : UCB size 
00 91 NAME=NODRIVER, = ; Driver name 
830 35 VECTOR=ADDCMP_VECTOR 3 Asynch DDCMP vector table 
09 94 DPT_STORE INIT : Initialization data 
0 95 DPT_ STORE ht Set tt a4 ee fe 3; Fork IPL 
003¢ 9 DPT_STORE UCB,UCB$B8_DIPL,B,21 3; Device IPL 
0040 29 DPT“STORE UCB,UCBSL EDEVCHAR L <= : Device characteristics 
004 98 DEVSM_NET'DEVSM_IDV!DEVSM_ODv> 
004 99 DPT_STORE UCB-UCB$B_DEVCLASS.6, “Des SCOM ; Device class 
0048 300 DPT“STORE UCB.UCB$B_DEVTYPE.6,0TS_ KDDCMP’ Device type 
004F 301 DPT“STORE UCB.UCB$W_DEVSTS,W 6° :' Internal status 
0054 30 DPT“STORE DDB.ODBSL_DDT,D ,NOSDDT : Driver dispatch table 
0059 0 DPT_STORE UCB,UCBSL_NO_AST,L ; Attention AST Listhead 
006 04 DPT“STORE UCB.UCBSW =PEVBUF SIZ. W256 : Default buffer size 
006 05 DPT_STORE UCB, UCBSL_DEVD ND.L.O ; Clear devdepend field 
00 88 DPT_STORE UCB,UCBSL_ SE YDEPAD p2.L,0 ; Clear devdepend field 
00 0 DPT-STORE ORB,ORB$B_FLAGS,B,- : Protection block flags 
007 08 ZORBSA PROT_16> : $OGW protection word 
007 09 DPT_STORE One .OneSu_F ; default protection 
444 10 DPT “STORE ORB ,ORBSL =punes. L.<*x010001> ; £1.1] owns the device 
it \} DPT “STORE ucB, UCBSW_ $TS,0 
0087 i DPT_STORE REINIT : Init data also for reload 
0087 14 DPT_ STORE CRB, CRBSL_INTD+VECSL_INITIAL,D,NOSCONTROL_INIT ; Controller init 
008C 15 DPT_STORE CRB, CRBSL_ INTD+VECSL_ UNIT TINIT,D,NOSUNIT_IRIT 3 Unit init routine 
8000 16 DPT “STORE END 
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19 
9 ; $Q10 parameter offsets 


0 Pl = 0 ; Parameter 1 

P = 3; Parameter § 

sass et FES 
00 803 P5 = 16 : Parameter 5 


; & temp until CLASS_LENGTH is define in TTYDEF.SDL 


00000028 CLASS_LENGTH = CLASSS_CLASS_DEF 
3; & temp until defined in system 
000000C8 DTS_ADDCMP = 200 
00000004 DSCSA_POINTER = 4 ; Descriptor buffer address 
00000004 MAX_RUVS = 4 ; Max number of RCVS before 
FFF 3F 300 NOST_LINE_PAR = “X<FFF3F300> : Bits to clear in DEVDEPEND 
3 on start o ne 
FFFFF700 NOSC_CIR_PAR = “X<FFFFF700> ; Bits to clear in DEVDEPEND 
3 on start of circuit 
OOOOF FFF NOSC_PAD = “X<FFFF> ; Pads to send at end of message 
; Bits set in this constant indicate the parity and the chaarcter Length 
3; that we want the port driver to run at. 
00000018 NOSC_SET_LINE = “*X<18> 


0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
" 
0 
0 
0 
0 
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3; NODRIVER constants 
3; Message fields with constant values 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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CONSTDEF NO,ENQ,5 ; ENQ message identifier 
CONSTDEF NO,SOH,129 ; Data message identifier 
CONSTDEF NO,DLE,144 3 Maintenace message identifier 
CONSTDEF NO,SYN,150 3; SYN byte identifier 
CONSTDEF NO,DEL,255 ; DEL byte identifier 
3 Receiver and transmitter states 
CONSTDEF NO,SEAR_MSG,0 ; Receive state sear for start 
0 ; of message 
0 CONSTDEF NO,EMPTY,0 ; Tranmit state nothing being send 
0 CONSTDEF NO, HEADER, 1 : Send header; recv header+crc 
0 CONSTDEF NO,HCRC, : Send header crc 
0 CONSTDEF NO,DATA 3; Send data; recv data+crc 
CONSTDEF NO. NOBUFFER,4 : Recv no buffer for data 
CONSTDEF NO, 4 3; Send data crc 
CONSTDEF NO, 5 : Send PADS on end of message 
CONSTDEF NO. XMTERR, 10 : Send enough data to clear xmt erro 


3; Misc constants 


CONSTDEF NO 
CONS TDEF NO 


; Default buffer size 
; Header Length 
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00000021 


00000040 


000000A8 
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6 CONSTDEF NO,HEADER_HCRC ati HEADER+2 ; Header Length plus crc length 
f CONSTDEF NO, DUETIM-TABLE_SIZE,256 : Default number of baud rates avail 
hi 3; Bit definitions 
1 BITDEF a fat lh gt 0 ; Fork on port 
¢ BITDEF NO_FS,10FO : Fork for’ To completion 
; BITDEF NO-FS,POW UERFAIL, 2 : Fork for powerfail completion 
é 3; Overlay of IRP 
Ss SDEFINI IRP 
4 - = IRPSW_FUNC+1 ; Overlay function word 
3 SDEF IRP$B_NOF UNC -BLKB 1 ; NODRIVER internal func code 
3¢ - = IRPSQ_STATION 
38 SDEF IRP$W_QUOTA -—BLKw 1 3; NODRIVER quota used for receives 
98 ; pet ine driver internal function codes stored in IRPSB_NOFUNC of IRP. 
++ NOTE: These are not used as bit offsets, but as values. 
401 _VIELD Pe ree ore : Internal function codes 
re TRT “CIR>,- ; Start a tributa 4 
40 SSIRTTLIND = ; Init the device inc UCB 
40 <STOP_CIR>,= ; Stop a tributary 
40 <STOP_LIN>,=- ; Stop the device’ (ince stopping 
rt ea “MODEM>,- ; Read the modem status 
40 
re SDEFEND IRP : End of IRP overlays 
41 
at ; NODRIVER UCB OVERLAYS 
41 
2 SDEFINI UCB 
rh} -=UCB$Q_TL_BRKTHRU 
419 ; Because we are Limited to the size of the terminal driver UCB for our ve 


then when the device is started (the first Q10 is is pee t Le Lug ll then 
; will allocate a block from nonpaged pool which we witty as r UCB 
: extension. This block will be deallocate on the Last DEASSIGN to the device. 


SDEF UCBSL_NO_BUFFER .BLKL 1 ; Address of NOB buffer 
SDEF UCBSL_NO_AST -BLKL 1 : Attention AST List 


SDEFEND UCB : End of UCB overlays 
These eceunes tens are made in case the terminal people decide to change 


the use of the UCB$W_DEVSTS field. Chagnes in bit definitions of that 
field could drastically affect the operation of this driver. 


ee ee ee 


FY a? at ot ot ot et tt tae 
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433 ASSUME UCBSV_TT_TIMO EQ 1 
434 ASSUME UCBSV_TT_NOTIF EQ 2 
435 ASSUME UCBSV_TT_HANGUP EQ 3 
4 § ASSUME UCBSV_TT_NOLOGINS EQ 15 
: 4 ASSUME UCBSV_TT_DEVSTS_FILL EQ 4 
? 8 ASSUME UCBSS_TT_DEVSTS_FILL EQ 11 
09 440 ; Device status bits 
: 441 
00000000 0 442 .=0 
00 44 -VIELD NO_DS,4,<- 3; UCBSW_DEVSTS bits 
444 <XATING, ,M>,- i Device XMTing if 8 
445 <RCVING, ,M> ; Device RCVing if 
0 rr <INITED, ,M>,= : Unit initialized | 
000 44 <FORK_PEND, .M>, : Fork pending 
00 448 <ILOOP_SUP, ,M>,- ; Internal loop supported on device | 
000 449 <MSG_SENT,,M>,- ; Set when a msg was xmte 
00 450 <SHUTDOWN, ,M>,= 3; Set when circuit going thru shutdo 
000 451 <XMT_TIME,.M>,= ; Set if XMT_DUETIM is valid | 
000 $26 <RCV_TIME,,M>,- ; Set if RCV_DUETIM is valid 
000 45 > 
000 454 . 
4 rt 3; Receive Flag field bit definitions 
$000 433 BITDEF RCV,CNTL,O ; Set if rcv msg is an ENQ msg 
0000 458 
0000 459 ; Receive buffer definition 
0000 460 ; ; 
0000 461 ; This structure must be the same size as the CXB 
0000 re | 
000 46 SDEFINI RCV 
00000000 0000 464. = 
4 465 SDEF RCV_L_LINK -~BLKL 2 : Forward and backward Links 
00 466 SDEF RCV_W_BLKSIZE .BLKW 1 : Total block size 
44 467 S$DEF RCV_B_BLKTYPE .BLKB 1 ; Block type 
008 468 SDEF  RCVB-FIPL -BLKB : Fork IP 
000C 469 SDEF RCV_W_MSGS1Z -BLKW 1 : Size of this part of the msg to r/| 
000 470 SDEF RCV_W_ INDEX -BLKW 1 : Index into rcved message 
01 471 SDEF RCV_W_ERROR -—BLKW 1 :; Error status 
01 472 SDEF RCV_W_FLAGS -BLKW 1 ; Receive message flags 
14 473 SDEF | RCVICRB_SPARE -BLKB CXBSK_HEADER-NOSC_HEADER_HCRC-. 
B38 474 3 Spore Bytes to allow for CxB 
04 475 SDEF RCV_Z_HEADER -BLKB NOSC_HEADER_HCRC ; Size in bytes of msg header 
Bf $76 SDEF RCV_T_DATA ; Receive data 
04 478 ASSUME RCV_Z_HEADER+8 EQ CXBSK_HEADER 
° re ASSUME RCV-T_DATA GE CXBSK_HEABER 
5 : 1 SDEFEND RCV 
? ; P2 buffer header definition 
485 SDEFINI P2B 
00000000 8 & § =0 
487 $DEF  P2B_L_POINTER .BLKL 1 ; Pointer to start of data 
4 4 8 SDEF P2B_L_BUFFER -BLKL 1 ; Address of user's data buffer 
8 489 S$DEF P2B_W_SIZE -BLKW 1 : Size of P2 buffer 
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490 SDEF P2B_B_TYPE ; Type of structure 
SDEF P2B_B_SPARE -BLK ; Spare byts 
SDEF P2B_C_LENGTH ; Size of P2 buffer header 
SDEF P2B_T_DATA ; Start of data 
; SDEFEND P2B 


; NODRIVER buffer definitions 
SDEFINI NOB 


A 
491 
C £36 
C 49 
C 494 
495 
00 238 
0 49 
0 498 
0 499 
00 0 
00000000 4 1 .=0 
g $DEF  NOBSL_FLINK »BLKL ; Nob buffer forward Link | 
0004 03 SDEF NOBSL_BLINK »BLKL ; Nob buffer backward Link 
0008 04 SDEF NOBSW_SIZE -BLKW ; Size of Nob 
QOOOA 505 SDEF NOBSB_TYPE -BLKB : Type of buffer 
0000000C gone 206 -BLKB 3 reserved | 
O0C 507 SDEF NOBSA_PRO BUFFER .BLKL 1 ; Address of the DDOCMP buffer 
paiy 508 S$DEF NOB$Q_ATTA -BLKQ 1 ; Received messaeg List | 
001 509 SDEF NOBS$Q_RCVS -BLKQ 1 ; Received 1/0 queue 
0020 510 SDEF NOBS$Q_FREE BL 1 : Free receive buffer queue 
0028 511 SDEF NOB$Q_ POST -BLKQ) 1 ; Receive and transmit buffers to comp 
0030 216 SDEF NOBSL_RCV_INPR .BLKL 1 3; Receive buffer awaiting data 
0034 513 SDEF NOBSL_XMT_INPR .BLKL 1 ; Transmit buffer to be sent 
0038 514 SDEF NOBSL_RCV_DUETIM .BLKL 1 ; Receive message duetime | 
003C 515 SDEF NOBSL_XMT_DUETIM .BLKL 1 ; Transmit message duet ime 
004 516 SDEF NOBSW_ QUOTA -BLKW 1 :; Byte quota for receive's | 
004 517 SDEF “XSTATE -BLKB 1 ; Transmitter state | 
004 518 SDEF NOBS$B_RSTATE -BLKB 1 3; Receiver state 
0044 519 SDEF NOB$W_PADS -BLKW 1 ; Pads to send at end of messages 
0046 520 SDEF NOBSW_XMTERR_SIZE .BLKW 1 ;_Number of pads to send on an error on an x 
0048 521 SDEF NOB$Z_HEADER -BLKB NOSC_HEADER_HCRC ; Area to receive header and crc 
bnes 5 $ SDEF NOBSW_MSGSIZ -BLKW 1 ; Current number of bytes left in rec hdr 
005 523 SDEF NOBSW_ INDEX -BLKW 1 : Index into receive header 
0054 524 SDEF NOBSW_ERROR -BLKW 1 ; Error on receive if any ” 
0056 525 SDEF NOBSW_FLAGS -BLKW 1 : Flags for receive buffer after it is alloc 
0058 526 SDEF NOBSL_PID -BLKL 1 ; Process I 
00SC 527 SDEF NOBSW_CHANL -BLKW 1 : Line channel number 
boas : 8 SDEF NOBSW_CHANC -BLKW 1 ; Circuit channel number 
006 9 SDEF NOB$Z_DDCMP -BLKL 4 ; Block for setable DDCMP parameters 
0070 530 SDEF NOBSC_SETPRM ; Start of UCB/LINE paramters 
0070 é 1 SDEF NOB$B_PRO -BLKB 1 ; Protocol selection 
0071 § SDEF NOBS$B_DUP -BLK 1 ; Duplex setting 
Ore SDEF NOB$B_CON -BLK 1 :; Controller Loopback | 
7? 4 SDEF NOBSB_BFN -BLK 1 ; Number of receive buffers 
074 5 SDEF NOBSW_DEVBUFSIZ .BLK 1 ; Size of receive buffers 
B076 6 SDEF NOBS$B_SPD . 1 ; Set Line speed | 
00000078 it $ -BLKB 1 ; reserved 
78 538 SDEF NOBSZ_DLA_ADDR .BLKB DLASC_ADDR_LENGTH ; Buffer to pass to prot with 
0080 546 3; address of queues prot needs 
0 p 41 ; Block to copy the control message into on transmit | 
980 4¢ $pEF  NOBSZ_CTL_MSG .BLKB  XMTOQSK_LENGTH | 
OAA 44 SDEF NOBSC_LENGTH ; Length of the NODRIVER buffer 
_e Fi SDEF NOBSK_LENGTH ; Length of the NODRIVER buffer | 
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: Driver Dispatch Table 


DDTAB DEVNAM=NO 
OF ARTSNOSSTARTIO - 
FUNC TB=NOSFUNC TABLE , ~ 
CANCEL =NOSCANCEL 
REGDM UMP, - 
Di AGBF = eee 
DIAGRE <cBbe1 o>, _ENTRY 


PUPP 


r~ 
WONAULWN—OWOon 


Device name 

Start 1/0 routine 
Function decision table 
Cancel 1/0 routine 
Register dump routine 
Diagnostic buffer size 
Alternate entry routine 
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6 
96 | 3 Function Decision Table 
64 NOSFUNCTABLE | 
65 Legal functions 
g "CURITEVBLE AY ae WRI TEPBLK,~; ; t Tranenit functions 
6 K,REA READ : Receive functions 
68 SETRODE. K PRISEMODE. CETCHAR = —-} Set mode functions | 
4 % FUNCTAB,= Buffered 1/0 functions 
is 71 <WRITEVBLK ,WRITELBLK ,WRITE PBLK,~i Transmit functions 
4 ce READLBLK, READPBLK,READVBLK, | 
: 3 SETMODE, NSENSEMODE;SETCHAR,> ; Set mode functions | 
| 
pe 75 
04 6 IF DF JNX$$$ 
004 57 functab fillbuffer Buffered 1/0 functions 
0048 578 <uritevbtk, ‘writelblk, write blk ni Transmit functions 
004 579 readvblk,readlblk,readpbl : Receive functions 
Boe 289 setmode, sensemode, setchar,- 3; Set mode functions 
0048 256 -ENDC OF JNXS$SS 
0048 58 
0048 584 FUNCTAB NOSXMITF : Transmit function dispatcher 
0048 585 <ARITEL BLK, WRI TEPBLK, URITEVBLK> | 
0054 586 FUNCTAB NOSRCVFDT,- ; Receive function dispatcher 
0054 587 <READLBLK , READPBLK ,READVBLK> 
0060 588 FUNCTAB NOSSETMODEFD : FDOT for set mode and set char 
0060 589 USETAODE, SET CHARD ; | 
006C 590 FUNCTAB NOSSENSEMODEFDT,- ; FDT sensemode routine 
006C 591 <SENSEMODE> 
0078 592 
| 
} 
| 


<z 


| 
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07 94 
7 95 ; The following is a table of s rvices that the ASYNCH DDCMP driver uses to 
7 89 3; interface with the terminal Lines’ port driver. It initially contains 
7 97 ; relative offsets to various routines and data structures needed by the 
07 4 3; terminal port driver. At driver load these relative offsets are reloacted 
07 99 ; to actual virtual addresses. The List is terminated by a 0 longword to 
7 ret 3 signal te relocation routine where the List terminates. | 
07 one 3 NOTE the because of how this table is indexed into the following order 
07 8 3 can not be changed, and if the placement of the routines are changed we | 
4 ? : 3 must know about it. | 
$ 606 ASSUME CLASS_GETNXT EQ 0 
07 60 ASSUME CLASS_PUTNXT EQ 4 
th 608 ASSUME CLASS_SETUP_UCB EQ 8 
007 609 ASSUME CLASS-DS_TRAN €Q 12 
0078 610 ASSUME CLASS_DDT EQ 16 
007 611 ASSUME CLASS_READERROR EQ 20 
0078 612 ASSUME CLASS_DISCONNECT EQ 24 
0078 61 ASSUME CLASS_FORK EQ $8 
0078 614 ASSUME C!ASS_POWERFAIL EQ 32 
0078 615 
0078 $16 ADDCMP_VECTOR: 
QO0010FA* 0078 63 -LONG NOSGETNXT - NOSDPT ; Port driver calls to get next 
0O7C 618 ; character to output 
00001274° 007C 619 -LONG NOSPUTNXT - NOSDPT ; Port driver calls whenever a 
0080 620 : character is received 
000013E8* 0080 621 -LONG NOSSETUP_UCB - NOSDPT ; Called to reset units’ UCB, | 
0084 ose : called at powerfail and unit init | 
000013E9* 0084 62 -LONG NOSPORT_TRANSITION - NOSDPT ; Handles modem transitions 
0088 624 3 on the Line 
00000000" 0088 625 -LONG NOSDDT - NOSDPT ; Class drivers DDT 
000013EA* 008C 6¢6 -LONG NOSREADERROR - NOSDPT ; Port driver detected an error 
0090 627 z: on the Line 
00001449" 0090 628 -LONG NOSCLASS_DISCONNECT - NOSDPT ; Indicates that the terminal 
0094 629 : is no longer connect to the system| 
000013A0° 0094 630 -LONG NOSCLASS_PORTFORK - NOSDPT ; Used when the port driver 
0098 631 ; needs to issue a fork 
0000144A° 0098 $36 -LONG NOSCLASS_POWERACTION - NOSDPT ; Called in unit init when a 
009C 3 63 : powerfail occured 
00000000 009C 634 -LONG 0 


<z 


Page 16 | 


N 13 
NODRIVER = VAX/VMS DMF32 Async DDMCP Line Driver 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 
v04-001 P2 buffer verification tables 6-SEP=1984 13:33i4) DRIVER.S REIN ODRIVER.MAR;2 (14) | 
A i .SBTTL P2 buffer verification tables 
A 6 
pA 639 Define P2 buffer verification offsets 
OA 641 SDEFINI PARAM 
000 $46 
4 64 _VIELD pen 0,<- ; Parameter bits and sizes 
000 644 TYPE.12,M>,= + Parameter type 
0000 645 ih N, f. 3,- + Parameter minimum value | 
0000 $78 <MAX,1,M>,= ; Parameter maximum value | 
444 64 <INVAL ED, {,M>,- 3; Parameter invalid flags 
000 648 
0000 649 
0000 650 -VIELD OFF,0,<- ; Offset word fields | 
0000 651 <VALUE , 14 ». 3; Offset value | 
0000 636 <ul TH,2,M>,= 3; Size of field in structure 
0000 65 | 
0000 654 
0000 655 SDEFEND PARAM 
OOAO 656 
QOAO 657 ‘ 
Bong 638 3 Define UCB (Line) parameters | 
00000000 Q0OAO 660 LINE —on BUFSIZ = 0 ; Line parameter buffer size 
BOAS $61 LINE_PARAM: ; Start of Line parameters | 
QOAO 66 PARAM NMASC_PCLI 3; Protocoi selection | 
OOAO 664 OF FSET= noase” PRO WIDTH=B,- 
QOAO 665 MAKSNMASC-LIAPR_fRI | 
00A0 666 INVALID= NO DS is -INITED,- ; Device can't be ON | 
QOAO 667 BASE=LINE 
O0A8 668 
O0A8 669 PARAM NMAS$C_PCLI ; Duplex mode 
OOA8 670 OF FSET= NOBSB” DOP, WIDTH=B,~ | 
00A8 671 MAX=NMAS$C_DP HAL, = : 
00A8 ore INVALID=NO_DS-M_INITED,- ; Device can't be ON | 
QO0OA8 67 BASE=LINE 
00B0 674 | 
00B0 675 PARAM WNMASC_PCLI_CON,- ; Controller mode 
00B0 676 OF FSET=NOBSB_CON,WIDTH=B,- 
0080 677 MAX=NMASC_LINCN_LOO,- ; | 
00B0 678 INVALIDENO_ DS_M~INITED,- > Device can't be On 
4 679 BASE=LINE 
08 680 3 
0088 681 PARAM NMASC_PCLI_BFN ; Number of receives 
0088 682 OF F SET=NOBS BEN, WIDTH=B,- | 
0088 68 MIN=1 ,MAX= : 
00B8 684 InvaL {p= “NO “DS M_INITED,- : Device can't be ON 
hee ant 
00C 687 PARAM wee PCLI_BUS : Buffer size 
00C2 688 FSET: =NOBSY Sado WIDTH=W,-" 
ppc 689 MINS ; 
0C2 690 INVAL [D> “No. Se * INITED,- : Device can't be ON 
Bat 691 BASE=L 
OCC 692 


<2 


MAX= wae _STATE_OFF ,= 
BASE=TRIB™ 


PARAM NMA$C_PCCI_MRB ; Maxium receive buffers 
OFeseTs DLKSB "MAB, WIDTH=B,- 


MIN=1 
INVALID= =XMSM_STS_ACTIVE,- 
BASE=TRIB 


PARAM End of trib tables 
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pce 693 PARAM NMASC RTT,- ; Retransmit timer 
CC 69% OF F SE Erenbass “DBCMP+DLKS$W_REPWAIT. = 
Occ 695 WIDTH=W,- 
occ 69 MIN=50,- 
O0CC 69 BASE=LINE 
0D 698 
0D 44 PARAM 3; End of table 
0D4 00 
004 701 ; Define Trib parameters 
00D4 Ne 
00000000 00D4 #703 TRIB_PRM_BUFSIZ = 0 ; Trib parameter buffer size 
onde 4 TRIB_PARAM: ; Start of trib parameters 
0004 706 PARAM NMASC_PCCI_T ; Trib address 
0004 707 OFF FSeT= DLKSB_ RtRIB, WIDTH=B,- 
0004 708 IN=1 5 
0004 709 INVAL {D=XMSM_ STS_ACTIVE,- ; Trib can't be established 
bope | F14 ite 
00DC ole PARAM NMASC_PCCI_MTR ; Max number of messages sent 
ooDpc 71 OF FSET=DLKSB “MSGCNT, WIDTH=B,- ; in a selection interval 
00DC 714 MIN=1,- 
OOD 715 MAX=100,- 
00DC 716 BASE=TRIB 
O0E4 717 
QOOES 718 PARAM NMAS$C_PCCI 3; Maintenance state 
00E4 719 OF FSET= SLKSB MAINT, WIDTH=B,- 
00E4 720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 


C 14 
= VAX/VMS DMF32 Async DDOMCP Line Driver 16- 
P2 buffer verification tables . 6 


BREE PPE EEE EH SCO TMM MM MM MMMM MMS O SONOS LLLP LLL ES 


SEP=1984 00:47:19 VAX/VMS Macro Vv04-00 Page 
~ SFP =i 3be 16:22:41 PORIVER. SRE IN NODRIVER.MAR; 2 ° 
rR 
4 ¢ ; DEFAULT TRIBUTARY PARAMETERS for DDCMP 
7 $ DEF _TRIB_PARAM:: 
7 ASSUME DOLKSB_MSGCNT EQ DLK$B_TRIB+1 
738 ASSUME DLKSB-MAXREP EQ DLKS$B_MSGCNT+1 
739 ASSUME DLKS$B_MAXSEL EQ DLKS$B-MAXREP+1 
740 ASSUME DLKS$W_REPWAIT EQ DLKSB_MAXSEL+1 
741 ASSUME DLKSW_SELWAIT EQ DLKS$W_REPWAIT+2 
ee ASSUME DLKSB_MAINT EQ DLK$W_SELWAIT+2 
74 ASSUME OLKS$B_MRB EQ DLK$B_ MAINES 
744 -BYTE 1 ; Default Trib address 
745 -BYTE 4 ; Max nmb of msgs sent / select 
os -BYTE 4 ; Max nmb of sel intls allowed 
74 -BYTE ; Max times to rexMT a msg 
748 WORD 000 3; Reply timeout timer 
749 WORD 000 3; Selection timer in sec 
750 -BYTE NMASC_STATE_OFF ; Default is no maint mode 
751 BYTE ; Default to unlimited rcv buff 
Pg DEF _TRIB_PARAMSZ = .-DEF_TRIB_PARAM 
Pe ; Default Line parameter values 
756 DEF _LINE_PARAM:: 
757 ASSUME NOB$B_PRO EQ — _SETPRM 
758 ASSUME NOB$B_DUP EQ NOB$B_PRO+1 
759 ASSUME NOB$B_CON EQ NOBSe_ we 
760 ASSUME NOB$B_BFN EQ NOB$B_CON+ 
re) ASSUME NOBSW_ BEVBUFSIy EQ “hopse _BFN+1 
76 -BYTE WNMASC <b sun PO! 3 Nit pang: » @ penenporn 
764 -BYTE NMASC_DPX_FOL 3; Duplex i 
765 -BYTE NMASC ~D INN, NOR : tontretler al is normal 
766 BYTE ; Number of receive buffers 
Pee -WORD NOSC_DEF_BUFSIZ ; Size of receive buffers 
168 DEF _LINE_PARAMSZ = .-DEF_LINE_PARAM 


Table to store all possible duetimes for receive and tranmsit messages. 

The time to wait is store in this table and is calculated as follows: 
((default buffer size + the ddcmp overhead bytes) * eight bits per byte ) 

divided the baud rate. This table is calculated each time the Line is 

started so we will have the most recent information about the default buffer 
aire The byte value of the terminal line speed is used to index into this 
able. 


DUETIM_TABLE: 
~-BLKW NOSC_DUETIM_TABLE_SIZE- 


—SOOONOULSWwN— 
TE TE Tare rere 


SQN 
CONN NNN 
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VOu-00T NOSCONTROL_INIT 
4 783 
4 784 
4 785 
Fee $ 

8 ? 
4 788 
04 789 
8 Be 790 

6 791 
8 04 138 

04 79 
8 04 794 
04 795 

0304 79 

0304 79 
0304 798 
0304 799 
Baoe 800 

0304 801 
51. QO0000000°EF DE 0304 a6 
00000000'GF 51 DO O30B 80 
b31§ 804 
50 iE Al 3C 031 805 
50 6510 =6CO «(0316 = 806 
0319 807 
0319 808 
0319 809 
60 D5 0319 810 

05 15 0318 811 
80 51 CO 0310 aig 

F7, 36-11 «0320 ~— 81 
0322 814 

032 815 
032 816 


‘> 
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-SBTTL NOSCONTROL_INIT = Initialize Sync Line device 
; NOSCONTROL_INIT = Initialize Sync Line unit 
; FUNCTINAL DESCRIPTION: 


; This routine is called at driver load it sets up the global DPT for the 
3; driver adn relocates the drivers vector tables. 


INPUTS: 


R5 
R6 
R8 


Address of device CSR 
Address of device IDB 
Address of device DDB 
Address of device CRB 


OUTPUTS: 
R4,R5,R8 are preserved 


NOSCONTROL_ INIT: 
MOVAL NOSDPT,R1 
MOVL R1,G*NO$GL_DPT 


MOVZWL DPTSW_VECTOR(R1) ,RO 
ADDL2 = R1,RO 


; Relocate the asynch ddcmp vector table 
5$: TSTL (RO) 

BLEQ 10$ 

ADDL2 = R1,(RO)+ 

BRB 5$ 
10$: RSB 
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ig aa -SBTTL NOSUNIT_INIT = Initialize the device unit 
g ; NOSUNIT_INIT = Initialize the device unit 
: ; FUNCTIONAL DESCRIPTION: 
4 : This routine is called when the driver is loaded and during power failure 
33 ames ph | It sets the unit status to ONLINE. Also, if called during 
0 § ; powerfail recovery, it shuts down the device. 
8 : INPUTS: 
8 3 R4 = Address of the device CSR 
? : RS = UCB addre 
9 : : : OUTPUTS: 
8 Z $ RS preserved 
0 oe NOSUNIT_INIT: ; Initialize the unit 
1164 A5 O05 €1 O 836 “BBC #UCBSV_POWER,UCBSW_STS(R5),10$ ; Br if not powerfail recovery 
E1 0328 837 BBC #XM$V_STS_ACTIVE 3 Br if not previously active 
OC 44 AS 032A 838 UCBsL “DEVDEPEND(RS) 10$ 
OF 5 032D 839 PUSHR #*M<R ; Save all registers 
109E 30 O32F 840 BSBW SCHED fork _POMERFALL 
OF 0332 841 POPR M<RO,R1,R 
0334 Beg RSB 
0335 84 
0335 844 5$: BUG_CHECK NOBUFPCKT,FATAL 
0339 Bee 
0339 Ba? ; This driver makes on eepyentton that IPLS$_SYNC, IPLS_TIMER and the drivers 
0339 848 ; fork IPL are all equal. If any of these change the integrity of the driver 
. : $e? 3 can not be sesurea. “THis DRIV R WILL NOT WOR ON PRE VERSION 4 SYSTEMS. 
0339 851 
0339 $26 ASSUME IPLS_SYNCH EQ IPLS$_TIMER 
0339 B34 
0339 855 : We must also be sure that SYNCH and the drivers FIPL are the same. If this 
0339 856 ; changes the integrity of the driver can not be assured with out some 
0 : S22 3 major changes. 
9 9 859 108: CMPB #IPL$_SYNCH,UCBSB_FIPL(RS) ; If the IPLs are not equal then 
033D 860 BNEQ 3: cause a fatal bugchec 
8 4 Beg aise #UCBSM_ONLINE ,UCBSW_STS(R5) ; Set software status ONLINE 
0344 86 


o 


NOSUNIT. 


I 


IF 
fillbuffer: 
movz 


Asy DMCP Line 
at tat ze the device uni 


belver Mor eee 198 Ieidai4) EDRIVER. cRETAODRIVER. MAR: 2 


DF JNX$S$S 
ugdsb Last(r5),r 

ucB$l “but fer (e5)Cr01 
4 ,irp$l_media(r3) 


#*c<jnx_size-1>,r0 
r0,ucb$B_last(r5) 


;DF JNXS$S$ 


S54 
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rf a os ~SBTTL NOSXMITFDT = Transmit 1/0 FDT routine 
re 5 3; NOSXMITFDT = Transmit 1/0 FDOT routine 
te 1 ; FUNCTIONAL DESCRIPTION: 
44 : ; This routine allocates a system buffer for the Q10. Then calls the 
rr : 3 common FDOT routine give the buffer to DDCMP. 
44 § 3 INPUTS: 
44 3 = 1/0 packet address 
44 8 ; R4 = Current PCB address 
44 s RS = UCB address 
re oy 5 R6 = CCB address 
44 35 3 OUTPUTS: 
0344 52 : R3,R4,R5,R6,R7,R8,R9 are preserved 
O8ce Bos 
0344 896 NOSXMITFDT: ; Transmit FDT routine 
O3F8 BF BB 0344 897 PUSHR #*M<R3,R4,RS,R6,R7,RB,RO> 
57 DO 0348 898 MOV P1C(AP) ,R7 : Get address of buffer 
59 04 ag t 0348 899 MOVL P2(AP),R9 : Get the size of buffer 
13 O34F 900 BEQL 10$ : If EQL then size is zero 
50 57 00 0351 £901 MOVL R7,RO : Set up RO and R1 for 
51 DO 0354 308 MOVL R9,R1 3 write access check 
00000000'GF 16 0347 90 JSB G*EXESWRITECHK ; Check the acc of users buffer 
51 59 2A Ci 0350 904 ADDL3 #XMTQSK_LENGTH,R9,R1 ; Get Length of buffer to alloc 
56 53 DO 0361 £905 MOVL R3,R6 ; Save the IRP address 
00000000'GF 16 0364 906 JSB G*EXESBUF FRQUOTA : Check quota 
3¢ 50 «6 ED: «=(036A—O 90 BLBC : If LBC not enough quota 
Oo00009" sr 16 0360 908 JSB G*EXESALLOCBUF : Allocated the buffer 
33 50 €9 0373 909 BLBC RO,20$ 3; If LBC not buffer allocated 
53 56 00 0376 £910 MOVL R6,R3 : Retreive the IR 
58 52 00 0379 911 MOVL R2,R8 :; Get buffer address in R8& 
5¢ 0080 cs DO 037¢ 312 MOVL  PCB$L_JIB(R4),RO : Get the JIB address 
$9 AQ 1 C 8 81 9h SUBL2 R1,JIB$L_BYTCNT (RO) ; Adjust buffered 1/0 
OasS 51 8B 85 914 MOVW R1, 1 RPS$W_BOFF (R3) : Save byte offset 
2C AS) =—52~—SCiéO 89 915 MOVL R2, IRP$L_SVAPTE(R3) : Save system PTE : 
1F AB 94 380 916 CLRB © XMTQ$B_FCAG(RS) : Clr bits, not ‘Internal’ IRP 
0076 630 9 917 5$: BSB COP_BUFF ; Branch to copy into my buff 
9 318 SETIPL UCBSB_FIPL(RS) 3; Sync to FIPL 
1A 10 9 91 BSBB COM_XAITFDT ; Branch to common processing 
0D 3 e9 99 920 BLBC RO, ; If BC then error 
O3F8 8F BA 9 921 8$: POPR #*A<R3,R4,R5,R6,R7,R8B,R9> 
0° 17 AO 3 ‘ JMP G*EXESQIORETURN 
5 14 863¢ A 924 10$: MOVZWL S“#SS$_BADPARAM,RO ; Set status for abort 
O3F8 BF BA A 925 208: POPR #*°A<R3,R4,R5,R6,R7,RB,RO> 
00000000'GF 17 AD 3 6 JMP G*EXESABORTIO 
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8 3 3 ~SBTTL COM_XMITFDT = Common transmit FDT routine 
;COM_ - Common transm routine 
; 931 ;COM_XMITFOT C t it FDOT ti 
8 3 : ; The allocated buffer is given to DDCMP where a header is added and if 
B 934 ; possible the buffer is added to the transmit queue. The buffer keeps various 
8 935 ; information on the transmit as it progresses from the transmit to the 
9 § 3 completion queues. 
B 937 ; 
9 3 3 INPUTS: 
B 939 ; R3 = IRP address 
8 ae9 F R5 = UCB address x i 
B 41; R? = Address of the user/‘‘Internal’’ IRP buffer 
038 oi) ; R8 = Address of allocated buffer 
tr + 3 R9 = Size of user/"‘Internal"’ IRP buffer 
038 945 ; IPL = Fork IPL 
bee 308 ; 
Hs 947 ; OUTPUTS: 
038 948 ; RO = Status of operation 
038 949 ; R5,R8 are preserved 
038 950 ; 
038 951 ;:-- 
038 93¢ COM_XMITFDT: 
54 OOA8 C5 09 038 95 MOVL UCBSL_NO_BUFFER(R5) ,R4 ; Get NOB address 
45 13 0388 954 BEQL 5$ : If eql device not started 
30 BB OQO3BA 955 PUSHR #*M<R4,R5> ; Save these registers 
55 OC AS 06 038c 436956 MOVL § NOBSA_PRO_BUFFER(R4) ,RS : Get addr of start of TFB 
: ee Berg 957 BEQL 
56 $ 9A 0 Ce 958 MOVZBL #DLKSC_XMTMSG,R6 ; Set that this is a msg to XMT 
Be bat 959 CLRL R7 ; Clear error bits 
FC36" 30 O3C7 960 BSBW DDCMP ; Branch to set up the header 
30 BA bare 961 POPR #*M<R4,RSD ; Restore the registers 
56 09 91 cc 366 CMPB POLKSC_ACTNOTCOM.RG : If EQL then protocol has not 
See 8 CF 96 BEQL 45$ ; been started 
1C 57 4 €0 Di 964 BBS #OLKSV_XMTERR,R7,35$ ; If BS then problem with XMT 
03 57 0 4 DS 965 BBC #OLKSV_XMTCMP,R7,20$ : If BC no XMT's to complete 
1233 0 D9 966 BSBW FINISH_XMT_I0 : Complete all XMT‘s 
16 57. 01 3 O30C 967 208: BBS #OLK$V PRSTERR »R7,40$ : Branch BS persisent error 
57 0220 8F 8B E 968 BITwW #<DLKSA_XMTACK!- ; If EQL then XMT not put on 
na on Bae 14 oe, RL EOR_OFULERR> .A7 ; either queue so abort it 
51 4 OSE 971 CLRL R1 ; Set no status for start_transmit 
0858 0 E9 378 BSBW START_TRANSMIT : Else start the xmt'r 
50 01 C EC 975 30S: MOVZWL $0 055S_MORAAL .AO ; Set normal return 
cs «We cf are ORB 0$ 
50 146 3 Fl or8 35$: MOVZWL F558 _DADPARIA.RO ; Set status 
OE 11 re 4 BRB 0$ 
F6 38 408 SETBIT #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Set fatal error | 
ae FB 980 BRB 30$ ; Complete as normal timer 
FD 86981 ; will shutdown the device 
3° A FD 69 § $3: POPR @*A<R4,R5> ; Restore the registers 
50 2004 BF FF 983 45$:  MOVZWL #SS$_DEVINACT,RO : Set the device is not active 
51 44 AS B tt ? : 50$: nov. UCBSC_DEVDEPEND(RS) ,R1 ; Set status for abort 
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p++ 
2 3 ;COP_BuF F 
: This routine takes the user or ‘Internal’ IRP buffer which contains the 


33) 3 message to send and writes it into the allocated buffer. 
335 ; INPUTS: 
994 ; R1 = Size of esaeenes buffer 
995 ;: R3 = IRP addre 
996 ; R8 = Address p+ * pt Lecated buffer 
97 ; R? = Address of buffer from which to move data 
43 44 3 R9 = Size of user/‘'Internal’’ IRP buffer 

1 ; 1900 $ IPL = FIPL from ALT_ENTRY and ASTDEL from XMITFDT 

409 1008 3 OUTPUTS: 

409 1003; Buffer is copied into allocated buffer 

409 1004; R5S,R8,R9 are preserved 

0409 1005 ; 

409 1906 :-- 

9 1007 CoP_BuFF: 

409 1008 MOVW R1,XMTQ$SW_BUFLEN(R8) ; Save the size of the buffer 

040D 1009 MOVB S*#DYNSC_BUFIO,- 3; Set that this is an XMT 

40F 1010 XMTQSB_BOFTYP(RB) 

8 411 1011 MOVL R3,XMTOSL_IRP( oy : Save address of the IRP 
1A AB 59 O06 Al 04615 Its ADDW3  #MFDSK LENGTH ; Get the msg size plus header 
041A 101 XMTQSW “ieee Te eRBD : for character count 
55 DD O41A 1014 PUSHL : Save RS before the MOV 
2A AB 67 59 28 O41C 1015 MOVC R9,(R7) ,XMTQSK_LENGTH(R8) ; Move data into system buffer 
55 8ED0 Bes, 1016 POPL RS ; Restore R 
05 0424 1017 RSB 


38 AS = 20D4 ‘8F 


03 44 AS 
1198 


51 2A 
56 
saneres 
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-SBTTL NOSALT_ENTRY = Alternate 1/0 entry 
NOSALT_ENTRY = Alternate I/0 entry point 
This routine is called by the other drivers to pass an “internal” 1/0 
request to the driver. ‘‘Internal’’ IRP's are not built via $010. 
The action here is to setup the IRP fields as if the packet had been 
processed by the FDT routines. 


In this driver, the alternate entry point is called by the DECnet 


Aes By 


B2335-5°.48 Mw mw 
Wo o-—- om 


ooouco— 


SOOMWwsS 


MP OOSO 
PRR RRR RRR RRR RRR RRR PRP PPP PPR PRR RRR PRP P PPR PRP PPP PPP PRP PPP Pe 


DDD DP Ms & & & EE NIWININIIP PI PONONoNoNoNPonopony 
a ee ee ee me ee a ee a ee ee ee ee ee a a ee ee ee ee ee ee a ed a a 


SOooooooooooooooqooooooooooooooooooooooooooooooooooo 


NNN NIA AAA AAAAAAAANANANAAAE RRR RR REE RWW 
EWN O DONA WR OS OD NAUE WN OOO NAUE WN OOO NAU EWN OOD NAULSWN OO 


SOSOSCOCSOOGOOSOSOOSOSOSOOSOOSOSSOSOSOSOSOOSOSOSOOSOSOOSOSOSOOSOSOSOSOSOSOOSOSooOSSoO 
PMD NE 209 9 99 99D OUI MOAN DUNO FD SAAS SSSI SITS 


INPUTS: 


OUTPUTS: 


See Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Sse Ge Se Se 
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NOSALT_ENTRY: 


IF DF JNX$$$ 

bsbw fillbuffer 

-ENDC ;DF jnx$$$ 

MOVZWL #SS$_DEVINACT, IRPSL_MEDIA(R3) ; Assume device inactive 

BBS #XMS0_STS_ACTIVE,- : If BS status active 
UCBSL~DEVBEPEND(R5) ,5$ : device is on Line 

BRW 10_DORE ; Else comp request in error 

5$ BBS #IRPS$V_FUNC,- : If BS then receive function 

IRPSW_STS(RS) ,ALT_RCVFDT 

PUSHR #*M<R3,R4,R5,R6,R7,RB,RI> ; Save registers 

MOVZWL IRPSW_BCNT(RS) RO : Get the Length of the buffer 

BEQL $ 3; If EQL then bad parameter 

ADDL3 = R9,#XMTQSK_LENGTH,R1 3; Add the XMTQ Length 

MOVL ; Save the IRP 

JSB G*EXESALONONPAGED : Allocated the buffer 

BLBC RO,20$ : If LBC not buffer allocated 

MOVL ° 3; Retreive the IRP 

MOVL R2,R8 ; Get buffer address in R8 

MOVE = #XMTQSM_ INTERNAL, ~ ; Set, that the 1/0 is from 
XMTQS$B_FLAG(R8) ; an “Internal’’ IRP 

IF F JNXS$S$ 

mov | r2,irp$t_fr4(r3) 

.ENDC = DF jnx$S$ 

MOVL @IRPSL_SVAPTE(R3) ,R7 3; Get interal IRP buffer addr 

BSBW BUFF ; Copy buffer into allcd buff 

BSBW COM_XMITFOT ; Branch for common processng 

BLBC RO oot ; If BC complete in error 

oo #°A<R5,R4,R5,R6,R7,RB,RI> ; Restore registers 


Transport layer driver. 


R3 = IRP address 


UCB addre 


R5 ss 
ALL pertinent fields of che IRP are assumed to be valid. 


IPL = Fork IPL 


Status of the request 


RO = 
R3 and R5 preserved 


Accept an ‘‘internal'’ IRP 


- Alternate 1/0 entry 
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MOVZWL 7 #SS$_BADP 
POPR  #*M<R37R4,R 
BR pone 


oe 
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oR6 


LRPSL_SVAPTE(R3) ,R2 
IRPSL_SVAPTE((R3) 


#SS$_DEVINACT,RO 
CB$C_NO_BUFFER(RS) ,R4 


ADDFREELIST 
COM_RCVFDT 
RO, 208 


RO, IRPSL_MEDIA(R3) 
10, DONE 


AX/VMS Macro V04-00 
DRIVER. SRCINODRIVER.MAR;2 


; Set abort status 
; Restore registers 
; Complete the request 


; Save RB it contains XMTQ buff 
; Restore registers 

; Set status 

; Complete deall the buffer 


Be 90:3 
M 


rae 


Is there a buffer to reuse 
If EQL then no 
Clear so not deallocated 


3; Assume failure 
; Get NOB address 


; Else add it to the free list 


; Do common processing 
; Br if unsuccessful 


Set status 
Complete IRP in error 
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-SBTTL NOSRCVFDT = Receive 1/0 FDT routine 


NODRIVER = VAX/VMS DM 
vourouT NOSRCVFDT = 


p++ 
is 3; NOSRCVFDT = Receive 1/0 FDT routine 
is 3 FUNCTIONAL DESCRIPTION: 
485 ; The specified buffer is checked for accessibility. The buffer address and 
048 3 count are saved in the packet. Then IPL is set to device fork IPL and if 
0485 3 @ message is available the operation is completed. Otherwise the packet 
ret 3; is queued onto the waiting receive List. 
48 ; For requests specifing IOSM_NOW, the I/0 is completed with status of 
beue 3 SSS_ENDOFILE if no message 7s available when the test is made. 
0485 3 
0485 3 INPUTS: 
0485 3 R3 = 1/0 packet address 
0485 3 R4 = PCB address 
0485 3 RS = UCB address 
0485 3 R6 = CCB address 
0485 : R7 = Function code 
be82 : AP = Address of first 1/0 request parameter 
0485 : OUTPUTS: . 
0485 : RO = Status of the receive request 
0485 3 R3-R7 preserved. 
0485 joc 
0485 NOSRCVFDT: 
50. 14 HS B MOVZWL 9 #SS$_BADPARAM,RO Assume illegal size 
51 04 AC C 0488 MOVZWL P2(AP),R1 Get size 
1F 13 04B8C BEQL  ABORTIO Br if none specified 
50 6C 00 048 MOVL P1(AP) ,RO Get buffer address 
38 AS. —-550—s«éOs«OKC MOVL RO, IRP$L_MEDIA(R3) Save address 
30 A3—s BG CLRW =—sIRPS$W_BOFF (R3) No quota to return during 


completion aes 
Check buffer accessibility 
(no return on no access) 
Synchronize access to the UCB 


00000000°GF 16 JSB G*EXESREADCHK 


SETIPL UCBSB_FIPL(RS) 
BSBB COM_RCVFDT 


11 10 Process the request 
06 50 €9 BLBC RO,ABORTIO Br if error | é 
00000000'°GF 17 JMP G*EXESQIORETURN Return to await completion 
ABORTIO: Abort the I/0 request 
51 04 CLRL R1 Don't return device status 
00000000'GF 17 JMP G*EXESABORTIO 


; Common receive processing 


COM_RCVFOT: ; Common receive processing 
0B £0 BBS #XMSV_STS_ACTIVE,- : Br if device active 
06 44 AS UCBSL~DEVDEPEND (RS) , 108 
50 2004 8F 3C T,RO ; Set return status 


MOVZWL #SS$_BEVINAC 
RSB 


o 

= 

wi 
ce ee em me me me mm ee ee ed ed ed dd od od dd dd dd 2 2 2 8 2S 4 2 3 
em ee ed ed td od od od = od =) ot SS 3 8 2 — 3 — — —) — — —) I 8 zm 
AIAN BEE EE SE WWWIWIWIIIIInonononononononungny 3 2 tO Ca 
OWONAUN EW =O OONAUEWN OOO NAUEWN OO ODNOAUEWN (OOD NOAUSWNODORDNAUEW 0 


oooooo oOo OOooooocoocooo 
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OOOO TN SD VIII SO NS Pommocnuw 


; Check for an avaiable message and complete the receive 
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54 DD O4FO 1160 10$ PUSHL R4 
54 O0A8 3 9 4F2 1161 MOVL BSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
eS 4F 1186 BEQL $ ; If eql device not active 
52 1084 OF OQ4F9 116 REMQUE @NOBSQ_ATTN(R4) ,R2 ; Dequeue a received message 
of 1D O4FD 1164 BVS : Br none 
1077 30 O4FF 1165 BSBW FINISH _RCV_10 ; Comp the 1/0 request 
54 8EDO 20¢ 1398 POPL R4 
05 0505 116 RSB 
0506 1168 
0506 119? ; Queue the requst for future —— arrival unless IOSM_NOW specified. 
bene 1109 ; Receives are queued to the special receive wait queue. 
OB 20 A3 06 FO S206 11% 15$: BBS aigev NOW, IRP$W_FUNC(R3) ,20$ ; Br BS read NOW 
10 B46 —E 0508 117 INSQUE (R3),GNOBSQ_RCVS+4(R4) ; Queue the 1/0 packet 
54 ace? 8205 1174 POPL RG 
50 «(01 f aig 1175 MOVZWL S“#SS$_NORMAL ,RO ; Set Q10 status 
05 0515 1176 _RSB 3 
Balé 1177 
54 BEDO 0516 1178 20$: POPL R4 
38 AS) 0870 BF 3C 0519 1179 MOVZWL #SS$_ENDOFFILE,IRPSL_MEDIA(R3) ; Set no message status 
10A9 30 OS1F 1180 BSBW : Complete the I/0 
50 01 3c 0522 1181 MOVZWL S*#SS$_NORMAL ,RO ; Set normal completetion 
05 0525 1186 RSB ; And return 
0526 118 
54 B8EDO 0526 1184 30S: POPL RG 
50 2004 8F 3C 0529 1185 MOVZWL #SS$_DEVINACT,RO ; Set error 
05 bese 1136 RSB ; And return 
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NOSSETMODEFDT = Set mode 1/0 operation FDT routine 

| 
Functional description: | 


This routine is used to set the configuration of the terminal device 
including configuration of software DDCMP. The first SETMODE done to the 
device causes a the NOB to be allocated. This buffer is used in place 

of an extension to the devices UCB. Subfunction modifier bits are used 

to spec tty the type of action to be taken. The two characteristics buffers 
(P1 and P2) are used to describe specific characteristics. 


The Q10 parameters for SETMODE are: 


Optional address of quadword or lLongword buffer 

Optional address of buffer descriptor for extended characteristics 
Number of receive buffers to pre-allocate. Required on 

controller startup. 
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The subfunction modifiers are as follows: 


o STARTUP = start the device - this modifier is used to 
start the device. 


| 
| 
© SHUTDOWN - shutdown the device - this modifier | 

is used to stop the device. 


o ATTNAST = request an attention AST =- this modifier is used 
to set up an AST to be delivered when a change of 
status occurs on this device. 


aT HHH HNN 


o CTRL = perform the request on the Controller not the 
tributary. 


eer rnrnninns 


o SET_MODEM - set Line unit's mode register. 


INPUTS: 
IRP address 
PCB address 
UCB address 
CCB address 
Function code 
address of first Q10 parameter 


@ 
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OUTPUTS: 


re preserved. 


status of setmode request ‘ 
a 
= destroyed 
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NOSSETMODEFDT: 
MOVL 


SOOOCCOCOOCOCOSOOSOOSOSOSCSOCOSOSOOOOCOGOCSCSOCOOOOCOOOCOOOCCOOCOCOOOOOOOCOOOO 
PUPP PUPP OO UU UU UU UU 
a ee ee ee ee a ee ee ae ee eee ee ee ee ee ee ee a a dd od 
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50 O0A8 C5 
27 
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YCBSL _NO_BUFFERCAS) .RO : If NEQ then BUFFER allocated 
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51 QO0000AA 8F 6 124 MOVL #NOBSK_LENGTH,R1 Else set up to allocate the buffer 
265 D 124 BSBW ALOE BUFFER Call to allocate the buffer 
57 50 =«OCE 40 1 ‘8 BLBC RO,288 If LBC buffer could not be allocat 
4 0D 43 124 PUSHL R4 
54 2 v0 45 1250 OVL R2,R ; Setup NOB address 
48 1251 DSBINT UCBS$B_FIPL(RS) | 
O27F 30 OS4F 1 26 SBW INIT_NO BUFFER ; Setup initial states in NOB 
00OA8 C5) = 554—Sts«éiU 226 125 OVL R4,UCBSC_NO_BUFFER(RS) ; Set address of NOB 
557 1254 ENBINT 
8EDO SSA 1255 POPL RG 
57 20 A3 3C€ Q55D 1 2$ 3$: MOVZWL IRPSW_FUNC(R3) ,R7 ; Get entire function code 
03 57 O 4 561 125 BBC #IOSV~CTRL,R7,5$ ; Br if not controller request 
OOAD 1 8208 : 38 BRW SETMOBE_CTAL : Process controller request 
o388 60 ; Perform setmode request on a tributary | 
3457 O08 €1 B208 ! 66 5$: BBC #1OSV_ATTNAST,R7,30$ ; Branch if not attention AST 
056C 1264 
beee : 22 ; User is requesting an attention AST. 
57 QOAC C5 DE 056C 1589 MOVAL UCBS$L_NO_AST(RS),R7 ; Get addr of AST List 
00000000'GF 16 0571 1268 JSB G*COMSSETATTNAST ; Set up attention AST 
O O00A8 CS 00 0577 1$6? MOVL UCBS$L_NO_BUFFER(RS) ,RO ; Get NOB address 
51 10 AO 9E O57C 1270 MOVAB NOBSQ-ATTN(RO),R1 ; Check for empty rcv List 
61 51 D1 0580 1271 CMPL R1, (RT) : Empty? 
96 13 0583 1 ie; BEQL 208 : Yes, no need to inform user 
5 DD 0585 12735 10$ PUSHL R3 ; Else, save IRP address 
1157 30 0587 1274 BSBW POKE_USER : Inform the user 
53 8EDO 058A 1275 POPL R3 ; Restore IRP address ‘ 
51 44 A5 p00 058d 1 6 $03: MOVL UCBS$L_DEVDEPEND(R5) ,R1 ; Get device characteristics 
0 01 3€ 0591 1277 238: MOVZWL S“#SS$_NORMAL, : Set success 
00000000'GF 17 Bean : ee 25$: JMP G*EXESFINISHIO :; Complete the 1/0 
00000000'GF 17 O59A 1580 28$: JmMP G*EXESABORTIO ; Abort the request 
$8 13 
04DD 30 B2Ag 1388 308: BSBW GET_CHAR_BUFS ; Get Pl and P2 characteristics | 
30 50 £€9 O5A3 1284 BLBC R ; Br if error - abort 1/0 
07 ~«€1 Bene : S2 BBC #10$V_SHUTDOWN,R7, 50S 3; Branch if not trib shutdown 
Bena ! 6? ; Shutdown tributary modifier specified. 
OSAA \ $4 3; Validate P2 buffer. Then update trib parameter block. 
0¢ 90 Q5SAA 1291 MOVB S“#NO_FC_V_ STOP_CIR,=- ; Set internal function code 
21 A O5AC 129 IRP$B-NOFUNC (R37 
44 AS 3¢ SAE 129 MOVZWL UCBSL_DEVDEPEND(RS) ,R2 : Else, get status 
bee 1294 35$: DSBINT UCBSB_FIPL(RS) ; Sync to get the UCB 
144C 30 0589 1295 Bw VALIDATE_P2_TRIB ; Validate the P2 buffer 
bear 129 ENBINT ; Restore IPL 
44 AS DO OSBF 129 VL ucest DEVDEPEND(RS) ,R1 3; Assume no error 
CE 50 «6 ED )«=(05C3) «(1298 BLBC RO,258 : Br if error 
5c 1099 DSBINT UCBSB FIPL(RS) i Syne to get the UCB 
0617 30 O5CD 1300 BSBW CHG_TRIB ; Change trib parameters 
209 1301 ENBINT ; Restore IPL ; 
049A 31 05035 1302 BRW QUEPKT ; Queue packet to driver 
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:19 oye: Macro v04-00 Page 3} 
NOSSETMCDEFDT, mode 1/0 operation F 741 (24) 


DRIVER. SRCIJNODRIVER.MAR; 2 


D6 «1303 
00000000'GF 17 He : 5 40$: JMP G*EXESABORTIO ; Abort the 1/0 request 
52 44 a5 3€ 2b 1 $ 50$: MOVZWL UCBSL =PEyoee ND(RS) ,R2 ; Get status 
OSEO 130 DSBINT UCBS$B"F R5) i Sync to get ee oC 
141E 30 SE 1 88 BSBW ere RTE. in TRIB 3 Val idates the P we 
SEA 130 ENBINT ; Restore IPL 
£6 50 EO SED 1310 BLBC RO,40$ : er if error 
05F0 1311 60$ DSBINT UCBS$B_FIPL(RS) ; syne to get the UCB 
OSED 30 OSF7 1 \¢ BSBW CHG_TRIB ; Change trib parameters 
bee 131 ENBINT : eeite IPL 
OD 57 6 0 OSFD 1314 BBS #10$V_STARTUP,R7,80$ ; Br if startup request 
1 C 0601 1315 MOVZWL $*#SS$_NORMAL,R 3; Else, set successful return 
51 44 A5 DO 0604 1 16 MOVL UCBSL_BEVDEPEND(RS) ,R1 : Set [0SB return status 
00000000'GF 17 0608 131 JMP G*EXESF 3; Finish the 1/0 request 
00 «690 Rove 1318 80$ MOVB S“#NO_FC_V_STRT_CIR,=- ; Set internal function code 
21 AS 061 1333 IRPS$B-NOFUNC(R3Y 
0458 «=(31 pols 1320 BRW QUEPKT 
0615 1321 


= VAX/ 
SETMODE_ 


<= 


VER MS 0:47:19 VAX/VMS Macro v04-00 
1 6:22:41 CORIVER.SRCINODRIVER.MAR; 2 


Perform setmode FDT operation on controller 


D 15 
32 Async DOMCP Line Driver 
Per 


zo 


i ob Sth 9 
orm setmode FDOT opera 6-SEP-1984 


~SBTTL SETMODE_CTRL, 


NODR Pa 

v04 1 s 38 
++ 

; SETMODE_CTRL = Perform setmode FDT operation on controller 

; Functional description: 


; This routine performs the SETMODE FDT setup for the controller. 


eee i 


3¢ A3 


51 


0468 
6E 50 


0060 8F 
05 

50 «14 
61 
56 

0458 8F 
1564 


2A 50 


2F 57 «(07 


21 83 
0508 


03 68 aS 


30 
E1 


PRAREXAAA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AO 


OOOCSOOOOCOVOOOCOOOOSOSOOOOOOoSoO 


§ 


ETMODE_CTRL: 
BSBW 
BLBC 
BITw 


5$: 


B 
BBC 


WN 9 OD NA UNE WIN  O OD NAME WIN OC OD NAME WIN O OD NIA MEAN O ODOM W 


MOVB 
DSBINT 
BSBW 
ENBINT 
BBC 


ee we i kk st a a 4 4 4 >» 2 2b 4 2b ss 2 — 4 —» 2» — 5 —» 2» —» —» +s 4 — 2s 2s 4 >» 45 4 4 4 2 ad =z 
SNS SIN ISLA AD RAN ANNI IID ES ES EEE SEE EE AANA AAA AAI IIIS 
Mw 


AAA AINIAI A.A AAAI NIAAA AWA 
~s 
~ooo 


INPUTS: 

R3 = IRP address 

R4 = PCB address 

RS = UCB address 

R7 = IRP function word 
OUTPUTS: 

RO = status of setmode request 

R3-R5 are preserved. 


GET_CHAR_BUFS 
RO,208 


#<XMSM_CHR_CTRL!- 
XMSM_CAR_DAC>,- 
RPSC_MEDIA+4(R3) 

#SS$_BADPARAM,RO 
20$ j 

R6 
#NMASC_PCLI_PRO,R1 


UCB$B_FIPL(RS) 
UNPACR_ Po _BUF 


RO.148 
#NMASC_LINPR_CON,R2 
10$ 
14$ 
#$$$_BADPARAM,RO 
UCBSW_DEVSTS(R5) .R2 
FIPL(RS) 


UCBSB” 
VALIDATE 2 UCB 


F168y SHUTDOWN,R7, 308 


; Shutdown modifier specified 


S*#NO_FC_V_STOP_LIN,=- 
IRP$B =NOFURC (RST 
UCB$B~FIPL(RS) 

mi a 
#NO_DS_V 


NIT - 
UCBSwW sseast Me aes 155 


Perform setmode on controller 
Get P1 and P2 characteristics 
Br if error =- Abort 1/0 


If NEQ then not multipoint 
control or DMC mode 


Else set bad parameter 


Assume no protocol specified 
Check P2 buffer for multi 
Sync to get the UCB 
Resto conse A, PO: 
setere 

f BC AL, no prot specified 
tf EQL then multipoint contrl 
specified 


Else set bad parameter 


Get device otetue 

Sync to get the UCB 
Validate the pS buffer 
Restore IPL 

Br if error 

Br if not shutdown request 


Set internal function code 


Sync to get NOB 

Update t UCB and the NOB 
Lower 

Br if controller not up 


O3F4 


51 44 AS 
50.01 
00000000 ' GF 
00000000 ° GF 
00Cc2 

F957 06 


1 AS 
51 8 25 


2 
50 6O00A8 C 


0 

10 68 A 
73, a0 = (51 
18 


51 0451 BF 
50. 14 

c9 

73, a0 (51 


06 

03 68 AS 
QOAA 

03 38 A3 
44 AS 
0498 

50 0008 C5 
51 73 A 
52 A nS 


SETMODE 


31 
i 


17 
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= VAX/VMS DMF32 Async DDMCP Line Driver i ak 3 dad BS 9 9 : 
Perform setmode FOT opera 6-SEP-1984 : 


BRwW QUEPKT 


15$: MOVL UCBSL_DEVDEPEND(R5),R1 
MOVZWL $*#SS$_NORMAL RO 
178: JMP G*EXESFINISHIO 
208: JMP G*EXESABORTIO 
258: BRW 508 
30S: BBC #10$V_STARTUP,R7,25$ 
MOVB  S$*#NO-FC_V_STRT_LIN,- 
IRP$B-NOFUNC(R3) 
MOVZWL P3(APJ,R1 
BEQL 35$ 
MOVL §UCBSL_NO_BUFFER(RS) ,RO 
BBC #NO_DS_V_INITED,=- 
UCBSW_BEVSTS(RSS , 33S 
CMPB =—s R'1, NOBS$B_BFN(RO) 
EOL =s«35$ 
MOVZ2WL #NMASC_PCLI_BFN,R1 
MOVZWL #S$8_BRDPARAM,RO 
BRB 17$ 
33$: DSBINT UCB$B_FIPL(RS) 
MOVB R1,NOB$B_BFN(RO) 
ENBINT 
; Set new P1, P2 parameters 
35$: BBC #NO_DS_V_INITED,- 
UCBSW_DEVSTS(R5S 368 
BRw! 0$ 
36$: DSBINT UCB$B_FIPL(RS) 
BLBC IRPSL-MEDIA(R3) ,37$ 
CLRB UCBSL~DEVDEPEND(RS) 
37$: BSBW CHG_UCB_NOB 
ENBINT 
MOVL §UCBSL_NO_BUFFER(RS) ,RO 
MOVZBL NOB$B_BFA(RO),R1 
MOVZWL IRPSLIMEDIA+2(R3) ,R2 
IRPSL-MEDIA(R3) ,40$ 
MOVZWL UCBSW~DEVBUFSIZ(R5) ,R2 
408 MOVZWL #SS$_BADPARAM,RO 
ULL R1,R2 
BEGL 60% 
MOVZWL R2,R7 
CMPL  R2,R7 
BNEG 608 
PUSHL R3 
JSB G*EXESBUF QUOPRC 
POPL R3 
BLBC RO .608 
MOVW R7,IRP$W_QUOTA(R3) 


MOVL pcBsL JIB(R4) ,RO 
R7, JIBSL_BYTCNT (RO) 


3; The following call is used to allocate a buffer 


AX/VMS Macro V04-00 
DRIVER. SRCINODRIVER.MAR; 2 


; Queue packet to driver 


Bete 


<= 


P 3 Nt 
age 38, 


Get I10S81 return 
Set success 
Complete the 1/0 request 


Abort the 1/0 request 
Branch to compl request 


Br if not startup request 
Set internal function code 


If EQL then P3 not set up 


Get NOB address 

If BC then device not inited 
set number of buffers 

Are the buffer nmb's the same 


Br if yes 

Set I0S81 return 

Set error return 

Finish the I/0 request 

Sync to get NOB 

Store new rcve buffer number 
Restore IPL 


Br if device not already 
inited 

Sync to get UCB 
Br if no Pl F 

Clear old characteristics 
Update the UCB and the NOB 
Restore IPL 

Get NOB address 

Get number of receive buffers 
Get message size from P1 

Br if Pl buffer is valid 
Else, get buff size from UCB 
Assume bad parameter 

Compute total needed for buff 
Or if sore - error 

opy quota 

Overflow? 
Br if error 


ave 

Check cat jer'e quota 
Restore R 

Br if error 

Save quota in packet 

Get JIB address 

Charge user for rec. bufs 


for the protocol, DDCMP. 
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— VER = VAX/VMS_ DMF 1384 90:62:19 AX/VMS Macro V04-00 Page 3 
V 1 SETMODE_CTRL, Perform setmode FDOT opera 6-SEP-1984 16:22:41 DRIVER. SRCIJNODRIVER.MAR; 2 (25) 
724 1437 ; If the routine returns with a LBC the the buffer could not be allocated and 
i r 1? $ 3; the device can not be started. 
51 2c 000001C of ¢} 724 14460 ADOL3 #TFSK_LENGTH,AGFSK_LENGTH,R1 
0 g 72C 1441 BSBW ALLO BUFFER 
42 5 E 72F 1726 BLBC R 2 : If LBC then abort startup 
7 : 144 DSBINT UCBSB_FIPL(RS) 
50 OOA8 C5 DO (07 1444 MOVL ne NO_BUFFER(R5) ,RO ; Get NOB address 
Oc Ad 2 ob0 07 1445 MOVL R2,NOBSA PRO By EER RO) ; Set protocol addess 
£ 74 1968 PUSHR #*M<RO,RT,R2,R35,R4,R5> : Cergre queueing request zero 
0108 C2. 2C-S 00s SOD KC 74K 144 MOVCS #0, (R55 #0, HGF SK LENGTH, TFSK_LENGTH(R ) ; the GFB portion of 
F BA 074C 1448 POPR  #*M<RO,R1,R2,R3,R4,R5> ; buffer 
res 144 ENBINT 
o3ic 3s 31 ey 1329 RW QUEPKT 3; Queue request to driver 
0754 1326 ; No modifier specified - change controller parameters 
0734 1454 50$: SETIPL UCBSB_FIPL(RS) : Sync access to UCB 
06 EO 0758 1455 BBS #N0 V_INITED,=- :; Br if already inited 
1 8 A 075A 1436 UCBSW_BEVSTS(R5SS ,70$ 
03 38 a3. «£9 «(075d «145 BLBC —IRPSL“MEDIA(R3) ,53$ : Br if no P1 buffer 
44 AS 4 0761 1458 CLRB UCBSL_DEVDEPEND(RS) ; Clear old UCB characteristics 
15 0 0764 1459 53S: BSBW CHG_UCB_NOB 3; Update the UCB and the NOB 
1 C 0767 1460 MOVZWL $*#SS$_RORMAL,RO : Else, set success 
51 44 AS 00 O76A 1461 VL‘ UCBSL_BEVDEPEND(RS) ,R1 : Set [0S81 return 
00000000 ' GF 17 Br oF 1298 55$: JMP G*EXESF INISHIO ; Finish the 1/0 request 
00000000 * GF 17 Oo oR re: 60$: JMP G*EXESABORTIO ; Abort the 1/0 request 
Born 1208 ; Device already inited - set new parameters and give them to device 
OF 38 A Hf 077A 1468 70$: BLBC IRPSL_MEDIA(R3) ,80$ ; Br if no Pl buffer 
3C A 1 O77E 1469 CMPB ss IRPSLMEDIA+4(R3) ,- : Are characteristics okay? 
44 AS 781 1470 CBSL~DEVDEPEND(R5) 
08 13 0783 1471 BEQL 0$ :; Yes - let it go 
50 14 3¢ 0785 1076 MOVZWL .#SS$_BADPARAM,RO ; Return error 
51 01 CE 0788 147 MNEGL “#1,R1 3; No epee Fie parameter 
€1 11 bone Vane BRB ; Complete the 1/0 
07D 1026 80$: SETIPL UCBSB_FIPL(RS) 3; Sync to get ucB 
gsee 30 0791 147 BSBW CHG UN ; Update the UCB and the NOB 
50 F0 8F 90 0794 1478 MOVB #<15a4>7R0. : Set only four parameters 
50 01 8 798 1479 MOVW S$*#SS$_NORMAL ,RO 
51 44 A5 OD 798 1460 MOVL UCBSL_BEVDEPEND(R5) ,R1 
00000000 * GF 1 79F 1481 JMP G*EXESFINISHIO 
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R VMS DMF3 reyes DOMCP 16-SEP-19 r 0:47:19 


wooR ty = VAX/ MF 32 ine Driver : AX/VMS Macro V04-00 Page 33 
Vv ALLOC_BUFFER, Allocate a buffer -SEP-1984 16:22:41 (CDRIVER.SR RCIN NODRIVER.MAR;2 (26) 
Ay 1? -SBTTL ALLOC_BUFFER, Allocate a buffer 
A 1? 5 :ALLOC. BUFFER = Allocate protocol buffer routine 
7A5 14 $i ; This routine does all the necesary operations to allocate a buffer from 
7A5 14 8 3; nonpaged pool. 
7A5 146 $ 
7A5 1490 ; INPUTS: 
7A5 1491; Ri = Buffer size 
7A 1438 3 R4 = Address of the PCB 
7A5 14935; 
7A5 1494 ; OUTPUTS: 
7A5 1495 ; Re = Address of buffer allocated 
7A 1e38 3 is preserved | 
7A5 1497 ; 
7A5 1498 
7A5 1499 ALLOC_BUFFER 
53 DD O7AS5S 1500 R3 
00000000°GF 16 O7A7 1501 2 Cee pourrnauers ; Does the user have quota 
10 50 €9 O7AD 1306 BLBC 3; If LBC no quota 
00000000 GF 16 0780 150 JSB cme SALLOCBUF : Allocate the buffer 
1450 €9 0786 1388 BLBC 1 : If LBC then not allocated 
50 0080 cs DO 0789 1505 MOVL Pcést J 1B(R4) ,RO : Get the users 18 | 
20 a0 avs o7Be 1306 SUBL2 R1 TTBSL -BYTCNT (RO) ; Subtract the quot | 
08 A 51 8B 4 150 MOVW R1,UCB$W~SIZE(R2) 3; Save the size of BUFFER allocated | 
OA A 13 9 7C6 1508 MOV CARD YNSC™ BUFIO,UCBSB_TYPE(R2) ; Set buffer type 
5 01 C O7CA 1509 MOVZWL S9538. NORMAL »RO 3; Set successful return 
53 B8EDO O7CD 1510 10$: POPL R3 
05 0700 1511 RSB 
07D1 1512 


<z | 
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.SBTTL INIT_NO_BUFFER - 


RIVER - VAX/VMS D 
VOeeOuT INIT_NO_BUF 
nitialize NOB extension 


++ 
INIT_NO_BUFFER = Initialize NOB extension 
Functional description: 


This routine is called to initialize queues and reset parameters when the 
NOB has been allocated on a startup. 


; INPUTS: 

: R4 = NOB address 
: RS = UCB address 
: IPL = FIPL 

i 


OUTPUTS: 
RO-R2 are destroyed. 


NIT_NO_BUF FER: 

; Initialize queue headers 

NOBSQ_RCVS(R4) ; Receive List 
NOBSQ"FREE(R4) ; Free buffer List 
POST(R4) ; Post List 


P ‘NOB$Q~POST+4 
MOVAB NOBSQ"ATIN(R4) .NOBSQ-ATTN(RG) =; Full buffer List 
MOVAB NOBSQ"ATTN(R4) ,NOBSQ~ATTNG4 (R4) 


ASSUME NOBSL_XMT_INPR EQ NOBSL_RCV_INPR+4 
CLRQ  NOBSL_RCV_INPR(R4) 


CLRB NOB$B_XSTATE(R4) ; Clear xmter state 
MOVW #NOSC_PAD ,NOBSW_PADS(R4) 3; Set up field with pads to send 


FOTW LOOM 
>>> 
BES 

=—nrronrn—— 

COMMBOOMC 

PPrPPrrrrr>r 

BRERA REE 

Oe] 
mm 
PPLE LLL LD 


30 AS = 7C 
42 A4 
44 AG FFFF 8F BO 


Enable the receiver. DDCMP STRT messages could be coming in on the 
wire and we will start looking at them as soon as this buffer is 
iven to the device. ( The address is stored in UCBSL_NO_BUFFER.) 
ince that is the case yhen we might as well start framing receive messages 
as well. The protocol will not be brought up however until both 
the Line and circuit are turned on. 


0 

1 DSBINT UCBSB_DIPL(RS) 

g BSBW START_RECEIVE 
ENBINT 

4 

0 


08BE 30 


pet up the block allocated in the NOB to look Like a DDCMP control message 
uffer 


at at ot ot I TOO OOOOCOCOOCOCOCO MN RWWMMMMMOOOVSOVUVTCVTVCVCOVTVUVCOVOUVCOCOVCVCOVCVCVCVCOVCVCOVTUTOTCSO 


60.6069 60 G0 GO G9 G9 Gd G0 G0 G9 G0 Gd G0 G0 69 69 09 NI NI NSIS NINNIN NINN NINN NNN NSN NSIS SSSI 
SPP PNPININI FO MAM AAAAAAA MO OOOO TS UNOW O 


SOOOSCOSOOOSOOSOOOSOOGOOCOVOOOOSOCOOOOCSOOCOOOCOCOCOOOOOCOOCOOOOoOOOoOO 


50 0080 C4 ODE 
oc 


MOVAL NOBSz CTL_MSG(R4),RO 
AO 04 C 


CLRL. —- XMTOSC_IRP(RO) 


<z 


row Sh 


wooriyge - VAX/VMS DMF32 Async DDMCP Line hekees 'e"s P=-1984 90: :47:19 VAX/VMS Macro V04-00 
04 INIT_NO_BUFFER = In Mit jalize NOB extensio 6-SEP-1984 16:22:41 (DRIVER. SRE REINO NODRIVER.MAR;2 
1F AO 04 90 1A ! 4 MOVB #XMTQSM_COW*ROL ,XMTOSB_FLAG(RO) 
if 1 rg : Please note that setting this of this parameter on device startup is 
1€ 1574 : accomplished via the NOB$SW_DEVBUFSIZ field in the NOB buffer. This 
\e ! o 3 was done to make the validating and the setting of this field stapter 
42 AS 9100 8F 0 if 1 8 MOVW ewosc DEF =BUESIZ ucesw. PEVOUF SECA?) ; Set default buffer size 
0 C 1 8 MOVZWL #DEF _CINE-PARAMSZ,RO 3 size of defaults in bytes 
| ao 3 CF E 7 157 MOVAB EF CINE : Set edaress of defaults 
52 9 1580 MOVAB NOBsC ~SETPRM(RA), R2 ; Set address of parameters 
2 9 1581 10$: MOVB (RI (R2)+ : Set next default 
FA 50 fF 12 ¢ SOBGTR R 3 Loop on all paramet 
50 OA 3C $ 1 MOVZWL n0,) TRIB PARAMSZ, RO : Set size of defaults in bytes 
51 F8B7 CF 9E 1584 MOVAB ODEF_TRIB_PAR ; Set address of defaults 
52. 60 A4 9 1585 MOVAB NOBSZ-DDCRPCRGS R2 ; Set address of parameters 
82 1 ¥ st 1256 20$: MOVB (R1)+,(R2)+ 3; Set next default 
FA 50 =F 45 158 SOBGTR RO,2 208 ; Loop on all parameters 
05 0848 1588 RSB 
0849 1589 


NOSSENSEMODEF DT: 
0D 68 AS 06 €0 BBS #NO_DS_V_INITED,UCBSW_DEVSTS(R5),2$ ; If inited then ok to read 
3; errors and characteristics 
MOVZWL #SS$_NORMAL,RO ; Else return no information 
MOVL UCBSC_DEVDEPEND(RS) ,R1 


JP ss G*EXESF INISHIO 
IRPSW_FUNC(R3) .R7 


01 

51 44 AS 
00000000°GF 1 
57 20 A3 80 


~m 
wn 
3 
< 
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Get entire function code 
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RIVER = VAX/VMS DMF32 Async DDOMCP Line Driver 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 Page 38 
VOenOOr NOSSENSEROD DT, Sense Mode 1/0 operati 6-SEP-1984 16:22:41 ([CDRIVER.SRCINODRIVER.MAR;2 . (38) 

49 3 .SBTTL NOSSENSEMODEFDT, Sense Mode 1/0 operation FDT routine | 
4 95 ;++ 

rh 5 3; NOSSENSEMODEFDT = Sense Mode FDOT routine 

49 3 > Functional Description: 

49 9 : This routine returns information to the caller about the configuration 

49 99 ; and status of fhe DMF32 device. Depending on the function modifier, 

rh 8 3; either the device characteristics, error counters contents are returned. 

49 ; 
tf o ; The Q10 parameters for SENSEMODE are: 

0849 05 : Pl = optional address of quadword or longword buffer 
Obee 8 : P2 = optional address of buffer descriptor for extended characteristics 

49 1608 : 

49 09 ; INPUTS: 

49 10; R3 = IRP address 

4 11; R4 = PCB address 

4 12; RS = UCB address 

4 13; Rg = CCB address 

4 14; R7 = Function code 

rs : : AP = Address of first function-dependent Q10 parameter 

4 17 ; OUTPUTS: 

4 18; RO = status return of sensemode request 

rf 19 ; R3,R5 are preserved. 

4 3 ; 

4 


NAMES AN 20 OD NAMEN 9 OD NAME WIN  O OD NA UE WIN @ O ODNOAU EWN O OONOUFE wrt 


a a a a a a ed ae «FT 
PDOAAAADP AEA AAAAA AA AA AAA AA AAAAAAAAAAAAAAAAOAAAAAOOOAOMIVIVINIUIUIUIUIWN “nn 


SOOSOOCOHOOOCOOSOOSOOOOOOOOOOOSOOSOOOSOOOOOOOOOoOO 


03 57 09 1 BBC #10$V_CTRL.R7,5$ ; Br if not controller request 
OOFO 1 Bkw SENSEMODE_CTRL ; Else, process controller reg. 
57 0500 8F B63 5$ BITW #<10$M_RD_COUNT!- : Check to see if either bit is 
4 JOSA_CCR_COUNT>.R7 3; Is set 
7. on 68 BEQL $ 3; If EQL then read parameters 
50 4 6D CLRL RO ; Assume clear count 
51 01 C of MOVZWL S*#SS$_NORMAL ,R1 3; Assume success 
3°57 «08s; fe BBC #10$V_RD_COUNT,R7,15$ : If BC then not read count 
ers ? ; Read tributary counters - modifier RD_COUNT 
026E 0 7s 4 BSBW CHECK_P2 : Check P2 buffer 
9 14 3C 0879 164 MOVZWL #SS$_BADPARAM,RO : Assume zero Length buffer 
3C A 1 8B 7C 164 MOVW R1, IRPSL_MEDIA+4(R3) : Save user size of P2 buffer 
o4.% 80 4 ea. =: 308 : Br if none 
4 D 4 PUSHL RG 
51 1 C 84 4 MOVZ2WL S*#SS$_NORMAL ,R1 ; Assume success 


a> 


K 15 
NODRIVER = VAX/VMS DMF32 Async DDMCP Line Driver 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 Page 39 
yon O0t NOSSENSEMODEF DT, Conse Mode 1/0 operati ~SEP-1984 Set LORIVER. SREINODRIVER.MAR:2 . a 
54 O0A8 D 7 164 MOVL $L_NO_BUFFER(RS) ,R4 ; Get NOB address 
£3 1 C 1845 BEQL yee in i: If eql no info 
54 OC AG OD 1 9 MOVL SA_PRO_BUFFER(R4) ,R4 ; Get prot buffer address 
"UD 16 BEQL :; If eqt no info 
28 1E AG OC 94 16 § OVZWL 4 TFSW_TEGCR4) RO 3; Get size of buffer needed 
3¢ a3 7h ae 1907 coe TRPSC_MEDIA+E(R3) ,RO ; IF GEQU then buffer ok 
51 ot} oF $ 9 188 MOVZWL #SS$_BUFFEROVF ,R1 ; Return partial success 
50 3C AS «3C «(OBA 1656 MOVZWL IRPSC_MEDIA+4(A3) .RO : Set size of copy 
B ee A? 1657 10S: PUSHR #*M<RO,R1,R3,R4,R5> ; Save the registers 
62 018A C4 50 Ag 1638 MOVC3 RO, TESK ERRSFRT (RG), (R2) : Get the errors 
B BA Beat 165 POPR #°M<RO,R1,R3,R4,R5> 
1657 OA €1 1 1660 BBC #10$V_CLR°COUNT.R7. 20S ; Br if not clear counts 
57 = 03 C 0885 1661 15$: MOVZWL #<DLKSM_TRIB!DLKSM_CLEAR>,R7 ; Set counters to read/clear 
888 1666 SETIPL UCBSB_FIPL(RS) : Set to fork IPL 
4 BB O8BC 166 PUSHR #*M<RO,R1,R3,R5> ; Save registers 
8 D4 O8BE 1664 CLRL 3; Set no parameters to return 
55 54 00 CO 1665 MOVL R4,R5 3; Set address of trib block 
56 93 GA C3 1666 MOVZBL #DLKSC_REQEBA,R6 : Set operation to gerrern 
F737° 30 O8C6 1667 BSBW ; Branch to protoco 
2B «6BA 08C9 «61668 POPR #*M<RO,R1,R3,R5> 
50 50 10 78 Q8CB 1669 20S: ASHL #16,R0,RO : Shift size of buffer return 
50 «651 B80 O8CF 1670 MOVW = R1,RO ; Set success status 
54 8EDO pepe 1671 POPL RS 
51 44 AS DO 08D 1676 MOVL UCBSL_DEVDEPEND(RS) ,R1 ; Set devdepend info 
00000000'GF 17 e344 1903 Jme G*EXESFINISHIO ; Complete the request 
00000000'GF 17 peor 1903 30S: JMP G*EXESABORTIO ; Abort the 1/0 request 
50 04 O8E5 1677 35$: CLRL RO 
E2 11 O8E7 1678 BRB 20$ 
pace 1679 
+434 1980 3; Read tributary parameters 
50 01 3C O8E9 1o8¢ 40$: MOVZWL S“#SS$_NORMAL ,RO ; Assume success 
51 08 3C OQOBEC 168 MOVZWL S$*#8,RT : Size of Pl buffer if present | 
O1F3 30 OBEF 1oRe BSBW CHECK_BUFS : Check P1 aS P2 buffers 
3C AS) 51s BO SCOBF2 «(1685 MOVW  R1, IRPSL_MEDIA+4(R3) > Save user P2 buffer length | 
45 1 ders 1686 Bea. 608 ; Br if no P2 buffer present | 
36 AS =—01—Ss«éwBOD are 1988 MOVW S“#SS$_NORMAL,IRPS$L_MEDIA+6(R3) ; Assume success 
32 AS 18 BO O8FC 168 MOVW #TRIB_PRM_BUFSIZ,IRPSW_BCNT(R3) ; Set size of required buffer 
18 51 B81 0900 1690 CMPW R1 #TRIB_PRM_BUFSIZ : If GEQU then user buffer is 
A 1 838 1691 BGEQU 3; large enough 
3€ A3 ogo r= @ 9 1996 MOVW #SS$_BUF FEROVF {RPOL REBIACE(RS) ; Return partial success 
32 A 1 8 90B 169 MOVW «RT, IRP$W_BCNT(R3) ; Set size to use in move 
51 F7C1 CF 9E O90F 1694 50$:  MOVAB TRIB_PARAM,R1 : Get address of return table 
54 DD 0914 1695 PUSHL | 
54 O0A8 oe D 916 1098 MOVL YERSL _NO_BUFFERCRS) .AS ; Get NOB address 
1 91B 169 BEQL $ : If Neql buffer is available 
54 60 A4 9 91D 1698 MOVAB NOBSZ_DDCMP(R4) ,R4 ; Get trib param block address 
08 1 921 19% BNEQ ; If Neql buffer is available 
00000032" 4 ? , 3 4 9 55$: cee RP$W_BCNT 
1211 30 0928 17 ¢ 56$: BSBW RETURN_P2 ; Return the P2 parameters | 
54 BED 92E 17035 58$: POPL : 
50 32 A353 BO 0951 1704 MOVW IRP$W_BCNT(R3) ,RO ; Return size of buffer | 
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3 FH 78 09 3 1705 ASHL #16,R0,RO0 3; Shift size of buffer return 

50° 36 A3 BO 3 9 1 g MOVW  IRPSL_MEDIA+6(R3),RO : Set size of return 

52 38 A3 0 93D 17 3 60$: MOVL {RPSL MEDIA(R3) ,R2 ; Retrieve P1 buffer address 

0 1 941 17 BEQL 0$ : Br if none 
40 AS 7D Bh3 1710 mova UCBSB_ Mar tbe: (R2) 3; Else, return characteristics 
04 A2 4405 CB 0947 1711 BISL  UCBSL-DEVDEPEND (R55 ,4(R2) : ime 

5 44 AS oY bach ar 70$: MOVL UCBSL- SE VDEPEND IR 5),R1 ; Get device dependend info 

00000000'GF 17 0950 171 JMP G*EXESF INISHIO : Complete the 1/0 request 


— = 
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926 1718 -SBTTL SENSEMODE_CTRL, Perform SENSEMODE FDT processing for controller 
956 1717 ;++ 
$56 1018 ; SENSEMODE_CTRL = Perform SENSEMODE FDT processing for controller 
920 \? y ; Functional description: 
0956 17 § 3; This routine performs all FDT checking for a controller SENSEMODE request. | 
0956 17235 ; The P2 buffer if present is check for write access and if okay, a systen 
boee 1724 ; buffer is allocated for temporarily saving the needed information. The 
B20 Ve 5 ; Pl sensemode information is returned through IRP$L_MEDIA and IRPSL_MEDIA+4. | 
0986 17 5 3 INPUTS: 
0956 1728 ; R3 = IRP address | 
0956 1729; R4 = PCB address | 
0956 1730 ; R5 = UCB address 
0956 1731 ; R7 = Function code | 
0956 \r36 3 
0956 1733 ; OUTPUTS: 
0956 1734 ; 0 = status return for request 
0956 1735; R3-R5 are preserved. 
0956 1736 ; 
0956 1737 ;-- 
0956 1738 SENSEMODE CTRL: ; Process controller sensemode FDT 
57 0500 8F 83 0956 1739 BITw #<10$M_RD_COUNT!- : Check to see if either bit is 
095B 1740 JQSH_CCR_COUNT> .R7 : Is set 
03 12 O958 1741 BNEQ $ : If NEQ then not read parameter 
0092 31 095D ies BRW 40$ : else read parameters 
03 57 07 4 0960 1743 5$: BBC #10$V_RD_MODEM,R7,8$ :; If BC not a read modem 10 
OOEA 1 0964 1744 BRW SENSE_MODEM ; Else branch to read modem FDT 
50 Be 0967 1745 8$ CLRL R ; Assume clear count 
oF C 0969 1746 MOVZWL S“#SS$_NORMAL ,R1 3; Assume success 
52 00a8 C5 b9 096C 1747 MOVL  UCBSL_RO_BUFFER(RS),R2 : Get NOB address 
7B «613 0971 1748 BEQL 3 3; If eql no buffer available 
OC A2 D5 0973 1749 TSTL NOBSA_PRO_BUFFER(R2) ; Check for address of protocol buff 
76 13 0976 1750 BEQL : If egl no buffer availabie 
i. san oe | bare 13) BBC #1O$SV_RD_COUNT,R7,15$ ; Br if not read counters 
bane 1738 ; Read controller counters - modifier RD_COUNT for DDCMP mode only | 
0168 30 o97c 1755 BSBW CHECK_P2 3 Check P2 buffer 
50 14 3C O97F 1756 MOVZWL #SS$_BADPARAM,RO ; Assume zero length buffer 
3¢ AS) «6551S BO S982 «1757 MOVW R1, IRPSL_MEDIA+4(R3) ; Save user size of P2 buffer 
60 13 09 6 1758 EQL og : Br if none 
4 DD 0988 1759 PUSHL 4 
54 Q00A8 CS DO OQ98A 1760 MOVL UCBSL_NO_BUFFER(R5) ,R4 ; Get NOB address 
oc 0 QO98F 1761 MOVL NOBSA~PRO_BUFFER(R4S ,R4 ; Set address of protocol buffer 
51 C 0993 1768 MOVZWL S*#SSS_NORMAL,R1 ; Assume success | 
50 01p3 C4 C 0996 176 MOVZWL GFS$W_GEB+TFSK LGNSTHCAS) RO : Get size of buffer needed 
50 3c e 039 176s Hae RPSC_MEDIA+4TR5) ,RO 3; IF GEQU then buffer ok 
51 0601 8F HS 9A1 1706 MOVZWL #SS$_BUFFEROVF ,R1 ; Return partial success 
50 3C AS) 3C 09A6 176 MOVZWL IRPSC_MEDIA+4(R3) ,RO > Set size of copy 
Be 9AA 1768 108: PUSHR #*M<RO,R1,R3,R4,R5> ; Save the registers 
62 O1E7 C4 AC 1769 MOVCS RO, GFSK ERRSRT + fF $k LENGTH(RA) , (R2) ; Get the errors | 
BA 0982 1770 POPR #*M<RO,R1,R5,R4,R5> 
4 B8EDO 0984 1771 POPL R4 
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1C 57 A 1 0987 177 BC #10$V_CLR_COUNT,R7,20$ :; Br if not clear counts 
57 88 5 988 1358 15$ MOVZWL #<DLKSM_GCOB!DLKSM_CLEAR>,R7 ; Set counters to read/clear 
9BE 1774 SETIPL UCBS$B_FIPL(R5) 3 Set to fork 
38 4 6BB C082 «1775 USHR #*M<RO,R1,R3,R4,R5> ; Save registers 
22 D4 09C4 1008 CLRL R8 3; Set no pereneters to return 
55 OOAB C dO pace 177 MOVL UCBSL_NO_BUFFER(RS) ,R5 ; Get NOB addre 
5 0C AS DO 09CB 1778 OVL NOBSA-PRO_BUFFER(RSS RS S Set address of protocol buffer 
56 3 A OSCE 1779 MOVZBL #DLKSC_REGEBA,R6 : Set operation to perfor 
F62B" 30 0902 1780 DDCM ; Branch to protoco 
B A 44 178 POPR #*M<RO,R1,R3,R4,R5> 
ia Se | 8 O09D7 17 § 20$: ASHL #16,R0,RO 3; Shift size of buffer return | 
0 51 B80 0908 17 MOVW = R1,RO : Set success status | 
51 44 AS DO O9DE 1784 MOVL § UCBSL_DEVDEPEND(RS).R1 : Set devdepend into 
00000000'GF 17 443 HA JMP GEXESF INISHIO ; Complete the request 
00000000 ' GF 17 3444 re? 30$: JMP G*EXESABORTIO 3; Abort the 1/0 request | 
50 D4 OSEE 1789 35$: CLRL RO 
E5 11 O9FO 1790 BRB 20$ | 
O9F2 1791 , | 
O3t 2 1738 3; Read controller parameters | 
50 01 3C O9F2 1794 40S: MOVZWL S*#SS$ NORMAL ,RO ; Assume success 
51 08 3C O9F5 1795 ROVZUL $*#8, “ 3; Size of Pl buffer if present 
OOEA 30 O9F8 1736 BSBW CHECK _BUFS : Check P1 and P2 buffers 
3C AS 51D sCO9FB 179 MOVL R1 IRPSL MEDIA+4(R3) ; Save user P2 butter Length 
3C 13 OFFF 1798 BEQL «= 608 : Br if no P2 buffer | 
3—E AS 01 #4BO OAD1 1800 MOVW S*#SS$_NORMAL, IRP$L_MEDIA+6(R3) ; Assume success | 
32 A324 «= BO «0A0S «(1801 MOV LINE PRE BUF SIZ. IRPSW_ BCNT(R3) ; Set size of required buffer | 
24 51 B81 OA09 1308 CMPW #LINE_PRM_BUF SIZ ; If GEQU then user buffer is 
OA 1€ OAOC 180 BGEQU BE : large enoug 
3E A3_ 0601 BF BO OADE 1804 MOVW #SS$ pelg pay eIRPSL_MEDIA+6(R3) ; urn 4 Ten puscese 
32 A353. 551 =BO 2(0A14)=—1805 MOVW oe $wW (R3) 3: Set size to use in mov 
51 F684 CF 9E OA18 1806 50S: MOVAB LIN PARRA R 3; Get address of return table 
54 DD OAID 1807 PUSHL | 
54 00A8 C5 DO OAIF 1808 MOVL Ucpsi_ NO_BUFFER(RS) ,R4 ; Get Line param block address 
05 12 OA24 1809 BNEQ : If neq buffer available 
32 AS) =6B4 SCOA26 1319 CLRW IRP$W_BCNT(R3) 
03 11 OA29 1811 BRB 54 
1111 30 OA2B 18g 52$: BSBW RETURN_P2 ; Return the P2 parameters 
54 BEDO OAZE 1813 54$: POPL | 
50 632 AS) =6BO «0(0AS1 «(1814 558: MOVW IRPS$W_BCNT(R3) ,RO ; Return size of buffer 
50 19 78 - 5 1815 ASHL RO,R ; Shift size of buffer return 
50° 36 A3_ BO OA 9 18 MOVW IRPS$L_MEDIA+6(R3),RO : Set size of return | 
52 38 AS DO OASD 1818 60S: MOVL {RPSL MEDIACRS) , oR2 ; Retrieve Pl buffer address 
13 OA41 1819 BEQL 0$ ; Br if none 
62 40 A5 7D OA4&3 1820 MOVa uCcs$B oPEVCLASS (85? yh : Else, return characteristics 
51 44 A5 DO OAS? 1821 70$:  MOVL UCBSL~DEVDEPEND(RSS,R : Get device dependend info 
00000000'GF 17 OA4B 3 ¢ JMP MEP RESFINEHIO. : Complete the 1/0 request 
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A51 Er ~SBTTL SENSE_MODEM = Perform SENSEMODE READ_MODEM FDT processing 
:SENSE_MODEM = Perform SENSEMODE READ_MODEM FDT processing 


: This routine performs all FDT checking for a SENSEMODE read modem reqeust. 


aay 1858 
as] 1859 
A) ee 
OA51 18350 : The Pl buffer is checked for write access and the request is queued to 
baa] : 1; the driver. 
0A51 18 4 : INPUTS: 
OA51 1834 ; R3 = IRP address 
OAS1 1835 ; R4 = PCB address 
BAe) 1 § 3 R5 = UCB address 
Baat ! fi R? = Fucntion code 
0A51 1839 ; OUTPUTS: 
0AS51 1840 ; RO = Status for return 
Bae! et) : R3-R5 are preserved 
bad! 1868 SENSE MODEM: 
51 04 3¢ AS1 1844 MOVZWL $*#4,R1 ; Size of Pl buffer 
OOBA 30 OAS4 1845 BSBW CHECK_P1 ; Check access to P1 
OAS7 1846 : (no return on no access) 
OOCA 30 OAS7 1847 BSBW ALLOC_P2BUF 3; Allocate a P2 buffer 
03 50 A OASA 1848 BLBS RO,10$ : Branch if success 
FA7D 1 rt 13ep BRW ABORTIO ; Else abort the request 
Ono 1891 3® WHAT DO WE DO HERE??22? 
51 2C A3 DO OA60 1888 10$: MOVL IRPSL_SVAPTE(R3) ,R1 3; Get system buffer address 
04 Al 38 A3 DO 0A64 1854 MOVL  §IRPSL-MEDIA(R3),P2B_L_BUFFER(R1) ; Set user buffer VA 
38 AS D4 OA69 1322 CLRL IRP$L_MEDIA(R3) ; Clear buffer 
21 A3 04 90 OA6C 1856 MOVB #NO FC_V_READ_MODEM, IRP$B_NOFUNC(R3) ; Set funcition 
OA70 1857 BRB QUEPKT :Give request o driver 
OA70 1858 ; 
Oar 1866 
0A70 1861 ; 1/0 request packet to driver 
B18 ena 
QA70 1864 SETIPL UCBSB_FIPL(RS) ; Queue packet to driver 
00000000 ' GF 16 OA74 1865 JSB G*IOCSINITIATE ; Initiate 1/0 reuqgest 
00000000'GF 17 OA7A 1368 JMP G*EXESQIORETURN ; Lower IPL, and return 
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~ ! $ -SBTTL GET_CHAR_BUFS, Get P1 and P2 characteristics buffers 
A 1871 ;+¢ 
~ $ : ts ; GET_CHAR_BUFS = Get P1 and P2 characteristics buffers 
- 0 : £ ; Functional description: 
pA 5 1 6 ; This routine saves the P1 and P2 buffers for later use by the driver. 
rt 1877 ; The P1 buffer is saved in the IRP (IRPSL_MEDIA) as a quadword value. 
pA 0 1 4 3; The P2 buffer is saved by allocatin the eporepe ieee amount of aquers from 
A80 1879 ; non-paged pool. The user’s quota is checked before the allocation is made. 
e 1 0 ; And the non-paged pool buffer is charged oge inet the user's quota. The P2 
et ; 4 ; system buffer address is passed in IRPSL_SVAPTE of the IRP. 
0A80 1888 3 
0A80 \3 4; INPUTS: 
QOA80 1885 ; R3 = IRP address 
OA80 1886 ; R4 = PCB address 
OA80 1887 ; RS = UCB address 
OA80 1888 ; 
OA80 1889 ; OUTPUTS: 
OA80 1890 ; = status of buffers 
OA80 1891 ; R3-R5 are preserved. 
0A80 1936 ; 
OA80 1893 ;-- 
nr 1398 GET_CHAR_BUFS: : Get characteristics buffers 
tt 1398 ; Check access to Pl buffer and save Pl characteristics 
38 A3 7C OA8 1898 CLRQ IRP$L_MEDIA(R3) ; Reset Pl chars 
52 6C 9 0A83 1899 MOVL P1(APY,R2 ; Get address of P1 char buf 
11. 13 QA86 1900 BEQL 10 ; Branch if no P1 buffer 
50 Oc 3C OQOA88 1901 MOVZWL #SS$_ACCVIO,RO ; Assume access violation 
0A8B 1906 IFNORD #8,(R2),20$ ; Check access 3 
38 AS 62 D QA91 190 mova (R2) , IRPSL_MEDIA(R3) ; Save Pl characteristics 
38 A301 90 OA95 1904 MOVB #1, IRPSL_MEDIA(R3) ; Indicate valid P1 buffer 
nye 1399 3; Check access to P2 buffer and check process's buffer quota 
52 04 AC 09 OA99 §=1908 10$: MOVL P2(AP),R2 ; Get address P2 char buf desc 
42 13 OA9D 1909 BEQL 40$ ; Br if no P2 buffer 
50 OC 3C QA9F 1910 MOVZWL 9 #SS$_ACCVIO,RO ; Assume access violation 
~~ 1911 IFNORD #8,(R2),20$ : Check access to descriptor 
51 62 3 AA 191¢ MOVZWL (R2),R1 > Get buffer Length in bytes 
51 01 CA OAAB 191 BICL = #1, Rf ; Must be multiple of 2 bytes 
1 13 QAAE 1914 BEQL 40 ; Br if size is zero 
52. 04 4g DO OABO 1915 MOVL DSCSA_POINTER(R2) ,R2 ; Get buffer address 
ae DO OAB4 1916 MOVL , : Copy buffer address 
OC 6B OAB? 191 PUSHR #*M<R2,R3> ; Save R2, R 
eee 18 AB9 1313 JSB G*EXESWRITECHKR ; Check entire buffer 
0 ‘ ABF 191 BLBC R : Branch if error 
0 "GF 16 OAC2 1920 JSB G*€ XE $BUF QUOPRC : Check for buffered quota 
3 BA AC 1921 15$: POPR #*R<R2,R3> 2 Restore R2, R 
01 8 19 § BLBS RO, 30 ; Branch if quota ok 
1925 20$: RSB ; Return 
1924 
1925 
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ACE 19 § ; Quota OKAY, allocate buffer and copy info. 


ACE 19 

8 ACE 19 8 30$: BSBwW P2BUF : Al Locate butter 

E ADi 19 BLBC a $ ; Br ife 

DO OAD4 1930 MOVL ee SVAPTE(R3) ,RO ; Get p2° butter address 

5 AD8 1931 PUSHR #*M R4,R5> ; Save gacree registers 
ADA 19 ; MOVC3 Rl, tr § pop t _DATA(RO) : Save P2 char buffer 

RA ADF 19 POPR amr RGR ; Restore registers 

C OAE1 1934 40s MOVZWL S*#SS$ “NORMAL, RO : Set success 
0S OAES 1935 50S RSB ; Return 


Seno BCT apd ala outed A neat a 
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~ 1388 -SBTTL CHECK_BUFS, Check P1 and P2 buffers for write access 
AES 19 § p++ 
~ 1329 ; CHECK_BUFS = Check P1 and P2 buffers for write access 
“ 1308 3 Functional description: 
~ Woee ; This routines checks the P1 and P2 buffers for write access if supplied. 
AE 1366 : INPUTS: 
AE 1947 ; R1 = Size of Pl buffer needed for write access 
AE 1368 : R3 = IRP address 
AE 1949 ; R4 = PCB address 
OAES 1950 ; R5 = UCB address 
OAES 1951 ; R7 = Function code 
OAES 1326 : R9 = COB address 
OAES 1953 ; 
OAES 1954 ; OUTPUTS: 
OAES 1955 ; R1 = Length of P2 buffer (zero if no P2 buffer) 
OAES 1956 ; R2 = Address of P2 buffer in user's process space 
OAES 1957 ; RO-R1 are destroyed. 
OAES 1958 ; 
OAES 1959 ; No RETURN on NO ACCESS 
OAES 1960 ; 
OAES 1961 ; IMPLICIT OUTPUTS: 
OAES 1396 3 ; : i 
OQAE5S 1963 ; IRPS$SV_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 
OAES 1964 ; 
OAES 1965 ;-- 
OAE5 1966 CHECK_BUF S: 
2A 10 OAES 196 CHECK_P1 3; Check P1 buffer 
QOAE? 1968 CHECK_P2: 
51 D4 OAE7 1969 CLRL a 3; Assume no P2 buffer desc 
52 04 AC 00 OQAE9 1970 MOVL P2(AP),R2 3: Get address of P2 desc 
18 13 OQAED 1971 BEQL 10$ ; Br if no P2 
OAEF 1976 IFNORD #8,(R2),ACCESS ; Br if no access 
51 62 3C OAFS 197 MOVZWL (R2),R1 : Get Length of buffer 
51 01 CA OAFB 1974 BICL #1,Ri : Must be multiple of 2 bytes 
OD 13 OAFB 1975 BEQL «108 : Br if zero 
50 04 A2 DO OAFD 1976 MOVL DSC$A_POINTER(R2) ,RO ; Get buffer address 
00000000'GF 16 0801 1977 JSB G*EXESREADCHK : Check write access to buffer 
0807 1978 ; (no return no access) 
0B07 1979 ; Also sets IRP$V_FUNC in IRP 
52 50 0 pee! 1380 MOVL RO,R2 : Copy buffer address 
ro 44 2 10$: RSB 3; Return to caller 
50 Oc 3c 0808 1983 ACCESS: MOVZWL #SS$_ACCVIO,RO ; Return access violation 
F9CC §=6©31 «=6(OBOE 61984 BRw ABORTIO : Abort the 1/0 request 
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~SBTTL CHECK_P1, Check P1 buffer address for write access 


+ 
CHECK_P1 = Check P1 buffer address for write access 
Functional description: 


This routine checks the P1 buffer and if okay, the buffer address 
is saved in IRPSL_MEDIA of the IRP. 


COB address 


is destroyed. 


No RETURN on NO ACCESS. 
IMPLICIT OUTPUTS: 


IRPSL_MEDIA(R3) = User P1 buffer address 
IRP$V_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 


Assume no P1 buffer 
Br if none 


Return to caller 


Get address of user buffer 


Check access to buffer 
(No return =- no access) 
Save P1 buffer address in IRP 
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~-SBTTL ALLOC_P2BUF, Allocate a P2 buffer and charge user's quota 


++ 
ALLOC_P2BUF = Allocate a P2 buffer and charge user's quota 
Functional description: 


This routine allocates a system buffer and returns the address in the IRP at 
IRP$SL_SVAPTE, The size of the allocation, including buffer header must 
be at least 24 bytes in length. 


INPUTS: ; 
R1 = Size of allocation desired 
R3 = IRP address 

OUTPUTS: 
RO = status of request 
R1i-R5 are preserved. 


IMPLICIT OUTPUTS: 
P$ 


IRP$L_SVAPTE(R3) = address of system buffer 
IRP$W_BOFF(R3) = byte count charged to user's process 
0B24 IRP$W_BCNT(R3) = original byte count requested 
0B24 ALL parts of the P2 buffer header are initialized, except for the 
pase user's P2 buffer address. 
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0 
0B24 20 se 
0B24 2052 ALLOC_P2BUF: ; Allocate a non-paged buffer 
51 D5 0824 20 TSTL R1 ; Zero length buffer? 
50 613 26 20 BEQL 30$ ; Br if yes 
OE 6B O0B28 20 PUSHR #*M<R1,R2,R3> : Save registers 
32 a3. 51 B80 OB2A 20 MOVW = R1, IRP$W_BCNT(R3) : Save original byte count 
oc 51 O01 pass 0 CMPL R1,8°#24=P2B_C_LENGTH ; Is buffer big enough? 
03 1A 0831 20 BGTRU ; Br if yes By. 
51 OC oDO 0833 20 MOVL $*#24-P2B_C_LENGTH,R1 3; Else, set size to minimum 
51 0c CO 0836 2060 5$: ADDL2 $*#P2B_C_CENGTH,R1 3; Add in size of header 
00000000'GF 16 0B39 20 JSB G*EXESBUF QUOPRC ; Check for buffered quota 
0D 50 =E9 pez 8 BLBC RO,10$ ; Branch if quota bad 
Bi 3 ; Quota OKAY, allocate buffer and copy info. 
51 DD 0B4 0 PUSHL R11 3; Save size to charge user 
eomees te 16 44 20 JSB 5 EEE SAL SNOMPARED ; Go allocate a buffer 
05 50 =€8 4A 20 BLBS RO,20$ ; Br if success 
BE D5 4D 20 TSTL (SP)+ ; Pop saved size 
OE BA post 070 10$: POPR #*M<R1,R2,R3> ; Restore registers 
05 pe3) 8 RSB : Return with error code in RO 
bee : System buffer allocated decrement user's quota 
53 8E&D0 oee § 20$: POPL R ; Restore user quota charge 
62 OCA E 5 0 MOVAB P2B_T_DATA(R2) ,P2B_L_POINTER(R2) ; Set address to start of data 
08 a2. 80 0899 0 MOVW R3,P2B W_SIZE(R2) ; Save buffer size in buffer 
OA A2 7 5D MOVB S@#DYNSC“BUFIO,P2B_B_TYPE(R2) : Set structure type 
5 52 00 oe 0 MOVL R 3; Save P2 char buf addr 
52. 0080 C4 00 0864 20 MOVL  PCBSL_JIB(R4),R2 : Get JIB address 


ieee ONE ote or eee Carte cee : 


= tee “SEP-1984 90: $f: 1? 


fer and c 6-SEP-1984 
” sits A pw 
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(R3) 
SIZE(RO) RPSU. _BOFF(R3) 
CSases: SHOR MAL 


tok 
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Se ge A. er's quota 
Restor sters 
Save P bu fer address. in IRP 


; Return buffer size in 
; Set success 
; Return to caller 
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re 89 -SBTTL CHG_UCB_NOB, Change UCB and the NOB parameter values 
B7C 0 ;++ 
143 4 ; CHG_UCB_NOB = Change UCB and the NOB parameter values 
As $8 ; Functional description: 
7¢ 95 : This routine is called to initialize the NOB with new P1 and P2 buffer 
7¢ 38 3 characteristics. It is assumed here that the parameters have already 
4s H 3; been validated. 
ge7¢ 039 ; INPUTS: 
087¢ 101 ; R3 = IRP address 
OB7C 21 ¢ ; R5 = UCB address : 
pare 132 ; R6 = Protocol mode in which to run the driver 
gB7¢ 105 : IPL = FIPL 
OByE 5409 ; OUTPUTS: 
0B7C 2108 ; RO-R2 = destroyed. 
Hae 
0B7C 2111 CHG_UCB_NOB: 
54 DD OB7C 11g PUSHL R4 : Save R4 
54 gone > ee |!) pert 11 MOVL UCBSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
33 38 AS OED ts 1% BLBC IRPSL_MEBIA(R3) ,10$ ; Br if no Pl buffer 
pas? 113 ; Set new Pl buffer characteristics 
06 €0 0887 2118 BBS #NO_DS_V_INITED,= ; Br if device inited 
OA 68 AS 0889 119 UCBSW_DEVSTS(R55 ,5$ 
0B8¢ 13 ; Please note that setting this of this parameter on device startup is ; 
0B8C 21 ¢ ; usually accomplished via the NOBSW_DEVBUFSIZ field in the NOB buffer. This 
pase , i 3 was done to make the validating and the setting of this field simpler. 
42 AS 3A A3. BO OBBC 2125 MOVW IRPSL_MEDIA+2(R3) ,UCBSW_DEVBUFSIZ(R5) ; Set new buffer size 
74 A4 42 05 B80 94 ; § MOVW UCBSW~DEVBUFS12(R5) ,NOBSW_DEVBUFS1Z(R4S ; Make sure both are updated 
4405 18 08 O FO 0896 2128 5$: INSV #0,48,#24,UCBSL_DEVDEPEND(R5S)  ; Reset all Read/Write flags 
3c AS) CB COB9C «2129 BISL IRPSL/MEDIA+4(R3) ,- : Set new characteristics 
44 a5 0B9F 9 UCBS$L~DEVDEPEND (R5) 
dBA : § ; Now update UCB based on P1 buffer 
cr : : ASSUME NMASC_LINPR_POI EQ 0 
70 AG) = «9 7 \ § CLRB NOBS$B_PRO(R4) ; Assume point to point mode 
re 1 8 ASSUME NMASC_LINCN_NOR EQ 0 
72 A419 AG 179 6$: CLRB NOB$B_CON(R4) ; Assume normal mode 
01 =€1 A? 214 BBC #XM$V_CHR_LOOPB,- ; Br if not loopback mode 
03 44 AS Ag 14 UCBSL~DEVBEPEND(RS) ,7$ 
AC 214 ASSUME NMASC"LINCN_LOO EQ { 
72 AG «696 OBAC 2144 INCB NOBS$B-CON(RS) ; Must be loopback mode 
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L 0 

) 


Pp 
Pp 
EQ 
x 
D 


AF 2145 7$: ASSUME NMASC_DPX_FU 
71 AG 9% AF 198 CLRB NOB$B_DUPTR4 ; Assume full duplex 
0¢ E1 o8e 14 BBC #XMSV_CHR_HDPLX,= ; Br if not half duplex 
03 44 A 8B 18 UCBSL_DEVBEPEND(R5) ,10$ 
7 214 ASSUME NMASC_DPX_HAL EQ 1 
71 AG 9% aH 3 INCB NOBS$B_DUPTR4) ; Must be half duplex 
A 21 
: ! § ; Set new P2 buffer characteristics 
51 F4E2 CF oF RSA 138 108: MOVAB LINE_PARAM,R1 ; Get address of verification table 
OFOC 85 Dee 138 BSBw UPDATE _P2 ; Update the UCB 
C 138 ; Please note that setting this of this parameter on device startup is 
C 159 ; usually accomplished via the NOBSW_DEVBUFSIZ field in the NOB buffer. This 
: 169 3 was done to make the validating and the setting of this field simpler. 
42 05 74 AG BD : 196 MOVW NOBSW_DEVBUFSIZ(R4) ,UCBSW_DEVBUFSIZ(R5) ; Set def buffer size 
dBe 7 be: ; Set device characteristics and device mode definition 
44 AS 94 OBC7 196 CL UCBSL_DEVDEPEND(R5) ; Reset all characteristics 
OBCA 2167 208 SETBIT #XMSV~CHR_HDPLX,UCBSL_DEVDEPEND(R5S) ; Assume half duplex mode 
OBCF 198 ASSUME NMASC_OPX_FUL EQ 0 
71 AG «695 =«(OBCF 16 TSTB N°B$B_DUPTR4) ; Full duplex mode? 
05 12 OBD2 2170 BNEQ 308 ; Br no - oka 
0BD4 2171 CLRBIT @XMSV_CHR_HDPLX,UCBSL_DEVDEPEND(RS) ; Set to fuli duplex mode 
0BD9 te 30$ ASSUME NMASC"LINTN_NOR EQ 0 os 
72 AS «95 «=(0BD9 «217 TST NOBSB_CON(RZ) z Is Line in normal mode? 
05 13 OBDC 2174 BEQL 4 ;_Br if yes 
pBdE 175 SETBIT #XMSV_CHR_LOOPB,UCBSL_DEVDEPEND(RS) ; Set loopback mode 
54 8EDO OBE 176 40$: POPL R4 ; Restore R4 
05 OBE6 soe RSB 
OBE? 2178 
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hange UCB and the NOB par 6-SEP-1984 16:22:41 CDRIVER.SRCINODRIVER.MAR;2 
-SBTTL CHG_TRIB, Change trib parameter values 


itt 
; CHG_TRIB = Change trib parameter values 
; Functional description: 
: This routine is called to initialize the trib parameter block with 


; new Pl and P2 buffer characteristics. It is assumed here that the 
; parameters have already been validated. 


RIB 
MOVAB NOBS?. DDCMP(R4) ,R4 
BLBC IRPSL-MEDIA(R3) , 10% 


3; Set new P1 buffer characteristics 
BISL IRPSL_MEDIA+4(R3) ,UCBSL_DEVDEPEND(RS) ; Set new char 


ASSUME NMASC_STATE_ON EQ 0 
ASSUME NMASC"STATE_OFF EQ 1 


Get the addr of param block 
Br if no Pl buffer 


° INPUTS: 
3 R3 = IRP address 
3 RS = UCB address 
: IPL = FIPL 
; OUTPUTS: 
$ R1,R2 = destroyed. 
tHG. TRIB: : Validate P2 buffer 
PUSHL R4 3 Save R4 
OVL vce. NO_BUFFER(RS) ,R4 ; Get NOB address 
MOVAB B 3; Get address of verify table 


CLRB DL KSB _MAINT(R4) e MOP 
BBS XM$V~CHR_ MOP, UCBSL -DEVDEPEND(RSS 1087 “aranch BS if true 
INCB OLKSe “MAINT (RS) NORMAL mode 


3 Set new P2 buffer characteristics 


10$: BSBW UroATe P2 Update trib parameters 
CLRBIT #XM$vV_CHR_MOP,UCBSL _DEVDEPEND (RSS Assume NORMAL mode 


BLBS OLKae “MAIATCR 4) 2087 - Branch LBS if true 

SETBIT #XM$V~CHR_MOP, vesse =DEVDEPEND(RS) ; Set MOP mode 
208: POPL R4 Restore R4 

RSB : Return to caller 


L 16 
art’Setmode 170 operation 6-SEP-1986 ioisei4) EDRIVER.SREINODRIVER.MAR:2 29° (3B) 
‘ -SBTTL NOSSTARTIO = Start setmode I/0 operation 
NOSSTARTIO = Start setmode operation 
FUNCTIONAL DESCRIPTION: 


This routine is entered to process a setmode request. ALl setmode requests 
are queued through the UCB to single-stream them. 


SETMODE FUNCTIONS -- 
For all functions a change in the characteristics is done. 
For control startup, the UCB is initialized, and the DDCMP timer is 
started. 


For trib startup, the protocol is set up with charateristics and 
started, and transmits and receives are started on the board. 


vou 001 NOSSTARTIO 


For control shutdown, the DDCMP timer is stopped, 

=. gusses are returned; and a call is made to trib shutdown to shut 
e trib. 

For trib shutdown, all buffers and IRP's are returned, 

and the protocol is halted. 


Sete Se Se Ge Se Ge Se Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Sse Se Se Ge See Ge Se Sete 


INPUTS: 
R3 = 1/0 packet address 
R5 = UCB address 
OUTPUTS: 
R3 and R5 preserved. 
-ENABL LSB 
NOSSTARTIO: ; Start 1/0 routine 
it gg IRP$B_NOFUNC(R3) ,R1 ; Get the function code 
oo oy START_DISP ; Branch to case 
MOVL UCBSL_DEVDEPEND(R5) ,R1 ; Set device characteristics 
REQCOM 3; Complete the request 
START_DISP: 
SDISPATCH R1,TYPE=B,- 
<- 3 Function Action 
<NO_FC_V_STRT_CIR START_CIRCUIT>,=- 
<NO_FC_V_STRT_LIN START_LINE>,=- 
<NO_FC_V_STOP_CIR SHUTDOWN_CIRCUIT>,=- 
<NO_FC_V_STOP_LIN SHUTDOWN _LINE>,=- 
: <NO_FC_V_READ_MODEM READ _MODEM>,- 
5$: BUG_CHECK NOBUFPCKT, FATAL ; Anything else is fatal 
-DSABL LSB 
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-SBTTL START_TRANSMIT = Start transmit 1/0 
: START TRANSMIT = Start transmit 1/0 
; FUNCTIONAL DESCRIPTION: 


: : this routine is entered to start oh ype Hoan over the async the. driver. In 
; order to do this the transmit is split into several pieces. The ey = 

; header CRC data, data CRC, and the PADS. It works 7 checki “tnt? see 

: the transmiter is 7 The gy is busy if the UCBSV_INT bit +e set in 
; UCBSW_STS. If "the port is not b then a transmit is” started by calling 

: the PORT “§TARTIO routine and the. CBSV INT is set in UCB#W_STS. The transmit 

: finsihes'in GETNXT routine after all the parts of the message has been 

; transmitted. If the device is running half duplex then transmits will only be 
; sent until the select flag is sent. 


INPUTS: 
R1 


Status information from routine calling START_TRANSMIT 
More specifically it is an interface between the protocol 
timer routine and this routine to tell start transmit that 
the protocol timer has expired therefore send the message. 
NOB address 

UCB address 


» 
uw 
“uu 


OUTPUTS: 
NON 
START_TRANSMIT: 
; If the DDCMP timer has expired a message may need to be sent 


05 51 OF £0 BBS yaa ge eS ag int RI ,20$ 
EO 10$: BBS #NO MTING ; If BS then the xmt'r is off 
45 68 AS UcBSu “BEDSTS (RS, 25$ 
20$: DSBINT mat B-DIPL(RS) 
30 64 AS O01 €E2 BBSS #uces? IN tthe STS(R5) ,30$ : If BS then port is busy 
42 A, 93 sig NOBSB_RSTATE(R : If NEQ then the transmitter is bus 
007B 30 cates GET_XMT ; Get next message to send 
38 50—s«éE9 LBC 0,40$ ; If LBC no message to send 
0118 C5) = 00 MOVL UCBS$L_TT_PORT(RS) ,R2 Get $ pect vector table 
011C C5) =624 AB CODD MOVAL XMTQSE MSGHDR (RB) UCBSL TT_OUTAD ADR( R5) ; Set address of block to send 
0120 C 06 98 MOVZBW #NOSC_READER_LEN,UCB$W_TT_OUTLEN(R5) ; Set size of block to send 
54 ODD PUSHL R4 
DSBINT UCBSB_DIPL(R5) 
42 a4 01 90 MOVB #NO$C" HEADER ,NOB$B_XSTATE(R4) ; Set transmitter state 


: The following instruction must be the last instruction executed before 
: the return to the port output routine. The reason for this is that the 
3 condition codes must correctly so that the port does the right transfer 
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0108 CS. 01s BE MNEGB #1,UCB$B_TT_OUTYPE(RS) ; Set block transfer to port 
00 B2 16 io aport _STARTIO(R2) : Call at port startio routine 
54 8ED0 POPL R4 
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MOVZWL 
R 


DBIBZWnNOo WsINo 


16-SEP-1984 
nf =| 98e 


S*#SS$_NORMAL ,RO 


00: 
16: 


#UCBSV_INT,UCB$W_STS(R5) 
S*#SS$_NORMAL ,RO 


WCB$B_DIPL(RS) 
#UCBS0_INT, UCBSW_STS(R5) 


47:19 
22:4 
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; Clear nothing given to port 


Reset port in use 


rw 


#NO_DS_V_MSG_SENT,UCBS$W_DEVSTS(R5),50$ ; If BC do not try tosend an | 


S*#S5S$" NORMAL ,RO 


#*M<R4,R5S> 
#OLKSC_XMTMSG,R6 
#OLKSM~QEMPTY,R7 
NOBSA_PRO_BUFFER(R4) ,RS 


#*M<R4,RS> 


DLKSV_MSGSENT EQ 0 


FOLKSC HATASG.RG 
R7,60$ 
R1 


START_TRANSMIT 
S*#SS$_NORMAL ,RO 


Inform DDCMP that the Last 
msg on queue was sent 

Get addr of start of TFB 
Branch to protocol 

Restore registers 


If NEQ no ACK to be xmted 


If BC no ACK need be sent 
Set no status info 

Else send the ACK 

Set status 


NO! 
vO: 


p 
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v04-001 GET_XMT = Get next transmit ti send 6-SEP=1984 16:22:41 (CDRIVER.SRCINODRIVER.MAR;2 (40) vo 
4 44 6 » -SBTTL GET_XMT = Get next transmit ti send ; 
Pe 4 ; GET_XMT = Get next transmit to send 
Beer ? 3 FUNCTIONAL DESCRIPTION: 
OCDF § 3; This routine checks the various tranmit queues and sets up the device with 
OCDF ; the next message to transmit. This means that it increments the transmit 
OCDF 84 ; count and decides if the transmitter must be shut down after this message 
OCDF 85 ; is sent (for half duplex only). You wili notice a hack pertennn to the 
OCDF 86 ; control message buffer. The reason for this is that DDCMP makes the 
pepe $85 3 assumption that it can change the data inside the control messages at 
COF 8 ; will. There is no problem with that for most devices, however for AYSNCH 
OCDF 2389 ; DDCMP we calculate our own CRC's and thus if data gets changed from under 
shed $0) 3 uS we will lose the message (in a most inefficient way we should note). 
OCDF $08 3 INPUTS: 
OCDF 23935 ; R4 = NOB address 
OCDF 2394 ; R5 = UCB address 
OCDF 2395 ; 
OCDF 396 ; IPL = DIPL 
GCDF 2397 ; 
OCDF 2398 ; OUTPUTS: 
OCDF 2399 ; RO = status LBS then message to send, LBC no message to send 
OCDF 2400 ; R4,R5 are preserved 
OCDF 2401 ; R8 = address of message to send 
OCDF 2402 ; 
OCDF 2403 ;-- 
OCDF 2404 GET_XMT: 
50 D4 OCDF 2405 CLRL RO ; Assume no message to send 
56 OC AS DO OCE1 2406 MOVL NOBSA_PRO_BUFFER(R4) ,R6 ; Get protocol buffer address 
51 20 B6 OF OCES 2407 REMQUE aTFS$Q_CTLO(R6),R1 3 Check control queue 
4C 1C OQCE9 2408 BVC 50 : If VC then messaeg to send 
58 3086 OF OQOCEB 2409 REMQUE a@TFSQ_XMTQ(R6) ,RB 3; Check data queue | 
45 1D OQCEF 2410 BVS ; If VS_ then no message to send 
OA AB 13 91 OCF1 2411 CMPB S*#DYNSC_BUFIO,XMTQ$B_BUFTYP(R8) ; If NEQ then a problem with | 
5F 12 OCFS stig BNEQ 60$ : queues : 
03 1F ASB O02 €E€0 OCF? 2413 108: BBS #XMTOQSV_CONTROL .XMTQ$B_FLAG(R8).20$ ; If BS then cntrl msg don't inc | 
10 A6 896 OCFC 2414 INCB TF$B_XQCNT(R6) | 
OA 1F AB O1 €E5 OQOCFF 2415 208: BBCC #XMTOSV_ SELECT, XMTQ$B_FLAG(R8),30$ ;_If BC do not turn Link 
05 44 A5 02 €1 QDO04 2416 BBC #XMSV_CAR_HDPLX,UCBSL_DEVDEPEND(R5),30$ ; If Not half duplex dont* t | 
QD09 2417 SETBIT #NO_DS V_RMTING,UCBSW_DEVSTS(RS) ; Set xmter off, but finish xmting 
34 AS DS ODOE 2418 30$: TSTL NOBSL_RMT_INPR(R4) | 
43 is 0D11 2419 BNEQ 
34 AG «658 OD Bots " 9 MOVL R8,NOBSL_XMT_INPR(R4) ; Set up xmt inprogress 
0D17 24 ¢ 3; Note olejour® this may look wrong the instruction is correct because 
OD17 2425 ; teh terminal Line speed is really » two byte field. The low byte is the 
OD17 2424 ; transmit speed and the high byte is the receive speed. If the receive 
Bote 425 ; speed is zero then it is the same 3s the transmit speed. 
50 OOF4 (C5 9A eit ? $ MOVZBL UCBSW_TT_SPEED(R5),R 
4) : 8 ; Set the due time on the transmit to be given to the port. 
50 F3E3 CF40 3C QDI 430 MOVZWL OUETIM_TABLECROJ,RO 
51 Q0000000'GF 00 Ds 431 MOVL GEXESGL ABSTIM,R1 
3¢ AGO 551—si5500—«iE—«é*OD 432 ADDL3 = RO,R1,NOBSL_XMT_DUETIM(R4) 
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D § 433 SETBIT #NO_DS_V_XMT_TIME,UCBSW_DEVSTS(R5) 

D 434 MOVZWL S*#SS$"NORMAC,RO 

4 § : 5 40$: RSB 

0037 24 ° 508: MOVAL NOBSZ_CTL_MSG(R4) ,R8 ; Get the address of buffer to use 

OD3C 2438 BISB XMTQ$B_FLAG(R1) .XMTQ$B_FLAG(RS) ; Copy control message flags 

0D41 2439 BICB #XMTOQSA_SELECT! XMTQSM_ONQUEUE ,XMTOQ$B_FLAG(R1) ; Clear flags 

0045 2440 MOVW  XMTOSW_ACRC(R1) ,XMTOS@_HCRC(RB) ; Get 

OD4A 2441 MOVL § XMTQSBIMSGHDR(R1) ,.XMTQSB_MSGHDR(R8) ; Get first Longword of hdr 

OD4F 44g MOVW XMTOSBIMSGHDR+4(R1),XMTOSB_MSGHDR+4(R8) ; Get second word 

0054 244 BRB $ ; Cont processing 

0D56 2444 : 

0D56 2445 60S: BUG_ CHECK NOBUFPCKT, FATAL 

ODSA 2446 
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READ_MODEM = Read device modem register “SEP-1984 


DSA 
;READ_MODEM - Read device modem register 


; This routine returns the device modem register in the buffer passed. 
; These are set according to the XMDEF's for modem bits. 


44 
Dah 44 
DSA é31 
DSA 2451; 
DSA 4 § 5 
DSA 2453; 
SpeA 138 : INPUTS 
OD5A 436 : " R3 = IRP address 
ODSA 2457 ; RS = UCB address 
ane 
ODS, 460 READ_MODEM: 
803A 186 3@ WHAT DO WE DO HERE?????? 
06 68 AS. 06 £0 OD5A 2464 BBS #NO_DS_V_INITED ,UCBSW_DEVSTS(R5),5$ ; If BS then read register 
50 2004 8F C ODSF 2465 MOV2WL #SSS$_DEVINACT,RO ; Else return device inactive 
a iy ee es 
50. =O s(«O1 3c 60D65)«=— 2468 5S: MOVZWL S*#SS$_NORMAL ,RO 
05 O0D68 2469 RSB 
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p69 $7) . -SBTTL FILL DUETIME_TABLE = Set up the due time table 
D69 138 ; FILL _DUETIME_TABLE 
D69 2474 ; 
44 oo? 3; Functional description: 
$68 299 3; This routine sets up the default values in the table as well as sets up the 
$088 278 3; known terminal Line speeds based on the default buffer size due times. 
D69 2479 ; The due time is the max Length of time we believe it should take to 
p0e8 : ? ; transmit of receive a given message based on the speed of the Line 
Boe8 4 ¢ 3 INPUTS: 
D69 2485 ; R5 = UCB address 
0D69 2484 ; 
0D69 2485 ; OUTPUTS: 
0D69 2486 ; The DUETIM_TABLE is filled. 
0D69 2487 ; 
0D69 2488 ;-- 
0D69 2489 FILL_DUETIM TABLE: 
07 +2~BB 3098 4 PUSAR #*M<RO,R1,R2> 
OD6B 2492 ; Set up table with defaults. This is in case a terminal line supports a 
0D6B 2493 ; speed that we don't know about. We wish to make this reasonable so we will 
pote rh ; wait at least one second. 
50 0100 8F 3C OD6B 2496 MOVZWL #NOSC_DUETIM_TABLE_SIZE,RO 
51 D4& OD70 2497 CLRL R1 
F38C CF41 O01 BO gore 498 10$: MOVW #1,0UETIM_TABLECR1] 
51 96 0D7 499 INCB & 
F5 50 F5 OQD7A 2500 SOBGTR RO,108 ; 
50 42 A5 OC Al OD7D 2501 ADDW3 «#12, UCBSW_DEVBUFS1Z(R5) ,RO ; Get the max msg size 
50 O08 A4 Bote 208 MULW2 #8,RO0 ; mult by 8 bits per byte 
0D85 250 STORE_DUETIM  50,R0.R1,R2,DUETIM_TABLE 
0095 2504 STORE _DUETIM 75,R0,R1 UETIM_ TABLE 
ODA? 2505 STORE-DUETIM  110,R0,R1,R2,DUETIM_TABLE 
ODB9 2506 STORE _DUETIM Ht Si »DUETIM_TABLE 
OpcB 2507 STORE _DUETIM 150,R0,R1,R2,DUETIM_TABLE 
ODDD 2508 STORE _DUETIM 300 RB RI oR »DUETIM_TABLE 
4434 509 STORE _DUETIM 998 RO,R1,R2,DUETIM TABLE 
0£01 2510 STORE-DUETIM  1200,R0,R1.R2,DUETIA_TABLE 
0E13 2511 STORE _DUETIM 1 oRO,R1,R2,DUETIM_TABLE 
Begs 216 STORE _DUETIM oRO,R1,R2,DUETIM_TABLE 
0E37 251 STORE _DUETIM 400,R0,R1,R2,DUETIM_TABLE 
E49 a3 STORE _DUETIM oRO,R1,R2,DUETIM_TABLE 
E58 15 STORE _DUETIM 4800,R0,R1,R2,DUETIM_TABLE 
59? 516 STORE _DUETIM 7200,R0,R1,R2,DUETIM_TABLE 
OE7F 2517 STORE _DUETIM 289 RO,R1,R2,DUETIM_ TABLE 
0691 2518 STORE-DUETIM — 19206,R0,R1,R0,DUETIA_TABLE 
07 BA Bene 519 POPR #*M<RO,R1,R2> 
05 OEA 520 RSB 
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OEAG 2 4 or -SBTTL START = Start unit, device and/or protocol 
EAG > 4 : START_LINE = Start unit 
DEAS : § > Functional description: 
QOEA6 25 8 : This routine initializes the UCB; allocates the map registers for 
BEA : 3 3 transmits and receives; and master clears the device. 
OEAG 3 1 : If a failure occurs the Line shutdown sequence is entered. 
DEAG 5 : : INPUTS: 
EA6 2534 ; R3 = 1/0 packet 
OEA6 2535 ; RS = UCB address 
OEA6 2536 ; 
QOEAG 2537 ; IMPLICIT INPUTS: 
OEA6 2538 ; 
QEA6 2539 ; IRPSL_MEDIA contains a copy of the mode buffer specified 
QOEA6 2540 ; y the user. 
ase ae : IRP$W_QUOTA contains the quota taken from the user for the unit. 
OEA6 228 : OUTPUTS: | 
QOEA6 2544 ; The request is completed. 
OEA6 2545 ; 
OEA6 2546 3-- 
QOEA6 92547 START_LINE: ; Start protocol operation 
06 €1 QEA6 2548 BBC #NO_DS_V_INITED,=- : If BC then device not inited 
6 68 AS OEA8 549 ucBSw BEVSTS(RSS 5$ ; Branch to set up idle UCB 
50 02C4 BF 3C OEAB 2550 MOVZWL #SS$_BEVACTIVE,RO : Set device active 
05 peed 32) RSB 3 eee and return 
54 _Q00A8 C5 00 OEB1 328 5$ MOVL UCBSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
44 AS FFF3S 300 8F CA OEB6 554 BICL #NOSC"LINE PAR, ,UCBSL DEVDEPEND(R5) ; Reset all Read/Write flags 
0A4 40 A3 BO oeBE 555 MOVW 1RPSU-QUOTA(R3) .NOBSO_QUOTACR4) ; Set quota for RCV's | 
40 AS BG Bebe 228 CLRW IRPS$W_QUOTA(RS) ; Quota is return is handled by us 
58 AG OC A3 DO OEC6 558 MOVL IRP$L_PID(R3) ,NOBSL_PID(R4) 3; Save starter's PID 
5C AS 288 AS 0 OECB 2559 MOVW IRP$W~CHAN(R35 NOBSQ_CHANL(R4) ; Save channel number 
FE96 0 4 560 BSBW LL_DUETIM_TABLE ; Fill im xmt/rcv message due times | 
68 AS 0040 BF AB BEDS 9) BISW #NO_BS_M_INTTED,UCBS$W_DEVSTS(R5) ; Indicate UCB initialized 
OED9 268 3; Call the terminal port driver to set Line speed and parity, This call 
OED9 2564 ; may affect the UCBSL_DEVDEPEND field, thus we must save this field 
OeD9 29? 3 so that information does not get lost. 
44 AS DD QED9I 269 PUSHL UCBSL_DEVDEPEND(RS) 
52 0118 CS DO OEDC 2568 MOVL UCBSL_TT_PORT(RS) ,R2 ; Get port vector tabie 
€E1 28? DSBINT UCBSB_DIPL(RS) 
OoOF8 cS) «618 ~=— 90 44 359 MOVB #NOSC_SET_LINE,UCBSB_TT_PARITY(R5) ; We must always send 8 bits of d 
EED 373 ; Make sure that the device does not do XON/XOFF. If it should be doing 
EED 25735 ; this, you can notice this because transmits appear to just stop 
444 fe t on the Line. 
EF 278 CLRBIT #TTYSV_PC_XOFENA,UCBSW_TT_PRTCTL(RS) 
EF 578 ; Set the port up so that it takes advantage of the DMA capabilities 
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| + 378 3 of the device. Devices Like the DMF32 do DMA output. 
08 8 EF 581 BISwW2 abby PC_DMAENA! TTYSM_PC_PRMMAP! TTYSM_PC_NOTIME,=- 
0122 § EF 5 ¢ W_TT _PRICTL(RS) 
4 DD OEF 5 PUSHL 
08 B2 «16 As : : JSB hen fetalgaoe ; Jump to tell the port 
444 2 § ; Now call the port to clear the Line. 
| 
Bg EFD 588 JSB @PORT_ABORT(R2) 
| 4 8 FO 2589 $B @PORT~RESUME (R2) 
| 4 BEDS 4 239 POPL RG 
| F 3 91 ENBINT 
44 AS BEDO Bee 236 POPL UCBSL_DEVDEPEND(R5) ; Restore the devdepend field 
| OFOD 2594 
OFOD 2595 
oh 238 ; Set up DDCMP defaults and other information necessary for the protocol 
03CO 8F BB OFOD 598 PUSHR #°M<R6,R7,RB,RI> 
50 OC AS dO OF11 2599 MOVL § NOBSA_PRO BUFFER(R4) ,RO Get protocol buffer 
01D1 CO OB AS 90 OFS 600 MOVB UCBS$B_F IPC ( R5),GFS$B_ FIPL+TFSK _LENGTHCR ) ; Set fork IPL for DOCMP 
01D2 CO SE AS 90 OFIB 2601 MOVB uces IPL(R5) .GFSB~ DIPL+TFSK— -LENGTH(RO) ; Set device IPL for DDCMP | 
01C8 CO 9% OF e) 60 CLRB GF$B_STATE+TFSK_LENGTH(RO) ; Make sure state is halted 
4C AO 0108 CO «DE OF25 «260 MOVAL TFSK_LENGTH(RO), TFSA_GFB(RO) ; Set address of global field 
38 §6=BB oF B 2604 PUSHR #*M<R3,R4,n5> 
58 60 A4 GE F2D 605 MOVAB NOBSZ_DDCMP(R4) ,RB ; Set addr of buf with param 
59 78 AG YE OF31 2606 MOVAB NOB$Z_DLA_ DR(R4) RO ; Set addr of buffer for addresses 
51 34 A464 QE OF35 2607 MOVAB NOBSL_XMT_INPR(R4),R1 ; Set up addresses 
69 51 DO OF39 608 VL R1,DLASA_RMT_INPR(RI) 
51 28 AG 9E OF3C 2609 MOVAB NOBSa POST(R 5) RI 
04 AI 51 DO OF40 2610 MOVL DLASA_ POSTQ(R9) 
55 50 0d0 OF44 2611 MOVL RO °R ; Get ador of start of TFB 
56 05 QA OF47 Olé MOVZBL #DLKSC_CHAR,R6 ; Set DDCMP default char 
57 D& OF4SA 261 CLRL R7 :; Zero the register 
57 O9FO BF AB OF4C 2614 BISW ee MSGCNT!- 3; indicate chara to set 
OFS1 2615 DLKSM_SELTIM!- 
OF51 2616 DLR SMe SELWAIT!=- 
OF 51 617 DLKS “REPTIM!= 
OF 51 $18 DLKSM_REPWAIT!- 
OF51 261 DLKSM_SETDEF>,R7 
FOAC' 30 OF 2) 620 BSBW DD 
38 A fee ? 1 POPR #°A<R3,R4,R5> 
bree 6 § Before starting up the DDCMP timer make sure that the driver can not 
30 ° 23 be reloaded or unloaded while the timer is running. 
00000000 ‘EF 04 88 Hf: § BISB #DPTSM_NOUNLOAD , DPTSTAB+DPT$B_FLAGS 
F5D 26 8 3; Start up the DDOCMP timer. First set up registers with params for call 
Be Fs 3; then make the call to the protocol. 
3 B6 a4 631 PUSHR #°M<R3,RS 
56 6 A FSF 6 § MOVZBL #DLK$C Tig TIMER,R6 ; Set up R6 with the DDCMP comm 
S57 164C°CF OD Foe 6 MOVAL W*DEVTTMER,R7 : R7 must have device timer addr 
58 55 1) are 634 MOVL RS, RB 3; RB aust have UCB addr 
59 D4 OF6A 2635 CLRL ; Clear R 
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é : MOVL NOBSA. PRO_BUFFER(R4) RS 

6 BSBW  DDCMP 

« : POPR #*M<R3,R4,R5> 

6 POPR #*M<R6_R7.RB,RI> 
L + 

640 mOVZW S*#SS$_NORMAL ,RO 

64 

$6 START_CTRL ERROR: 

644 PUSHL 

645 BSBW SHUTDOWN LINE 

646 POPL RO 

64 

648 
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Get addr of start of TFB 
Call protocol 


Set success 


Save abort reason 
Shut down the device 
Restore abort reason 


ee %) | 
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v04-001 START = Start unit. device and/or protoc ay 1 See LORIVER. SREINODRIVER.MAR: 2 (45) 
F 86 $50 
F86 1 344 
: ? $26 ; START_CIRCUIT= Start device and protocol 
: eee ; Functional description: | 
F86 $28 ; This routine sets up the protocol and device charateristics; sets up receive 
F86 2657 ; buffers for the device; starts the protocol; and finally gives the first 
: ? O28 3; transmit and receives to the board. 
oF ? 269 :; If a failure occurs the circuit shutdown sequence is entered. | 
; 
| F86 66¢ : INPUTS: | 
OF86 2665 ; R3 = 1/0 packet 
OF86 2664 ; R5 = UCB address 
OFB6 2665 ; 
gree 068 $ IMPLICIT INPUTS: | 
OF Be 668 ; IRPSL_MEDIA contains a copy of the mode buffer specified 
OF86 2669 ; by the user. | 
OF86 2670 ; 
OF86 2671 ; OUTPUTS: 
OF 86 ore : The request is completed. 
OF86 2673 ; 
OF86 2674 ;-- 
OF86 2675 START_CIRCUIT: ; Start the circuit 
0B €1 OF86 2676 BBC #XMSV_STS_ACTIVE,- : If BC then device and 
06 44 AS OF88 2677 UCB$L-DEVBEPEND(R5) ,5$ 3 protocol are not active 
50 02¢4 8F 3C OF8B 2678 MOVZWL #SS$_BEVACTIVE,RO ; Return error 
05 pray 44 RSB 
54 O0OA8 CS DO OF9I $8 5$: MOVL UCBSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
06 EO OF96 ote BBS #NO_DS_V-INITED,=- ; If BS then Line started | 
06 68 AS OF98 268 UCBSW_BEVSTS(R5S ,8$ | 
50 2004 BF 3C OF9B 2684 MOVZWL #SS$_BEVINACT,RO ; Else return device inactive 
05 OFAO 2685 RSB | 
OFA1 2686 
OFA1 2687 ; Reset bit fields 
FA1 2688 
03CO 8F BB OFA 689 8$: PUSHR #*M<R6,R7,R8,R9> 
68 AS FFBF 8F AA OFAS 2690 BICW  #*C<NO_DS_M_INITED>,UCBSW_DEVSTS(RS5) 
44 AS FFFFF700 BF CA OFAR 691 BICL #NOSC_CIR-PAR,UCBSL_DEVDEPEND(R5) ; Reset all Read/Write flags 
0075 30 OFB O38 BSBW SET _CAAR ; Set protocol char 
Bree $3 DSBINT #IPC$ POWER 3 Interlock powerfail 
05 64 AS 05 €1 OFBC 94 BBC #UCBST_POWER ,UCBSW_STS(R5),10$ ; BR if no power failed 
FC1 2695 ENBINT 3; Enable intterrupts at FIPL 
& 11 OFC4 096 BRB START_POWERFAIL ; Branch to report powerfail 
0800 8F AB OFC6 2697 108:  BISW  A#XMSMTSTS ACTIVE,- | 
44 AS FCA 2698 UCBSL ~DEVBEPEND (R5) ; Set active state 
| FCC $9) ENBINT ; Return to fork IPL 
56 04 QA OFCF 0 MOVZBL #DLKSC_USRINT,R6 ; Set to start the protocol 
00 E1 OFD2 2701 BBC #xm$v_CHR .7 ; If BC then don't enter 
06 44 A FD4 27 ¢ UCBSt DEVBEPEND (RS) . 158 ; maint mode 
7 4 QA OFD7? 27 MOVZBL 8 KSA_MAINI,R ; Set to start maint mode 
0003 3! FDA 2704 RW 2 
57 1 A QFDD 2705 15$: MOVZBL #OLKSM_START,R7 ; Else singly start the prot 
8 BB OFEO 2706 208: PUSHR #*M<R37R4,R5> ; Save registers 
| 
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START_POWERFAIL: 

START_CIRCUIT_ERROR: 
PUSH 


START_CIRCUIT 
MOVL 
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NOBSA_PRO_BUFFER(R4) ,R5 
DOCMP 

#*°M<R3,R4,R5> 

* LKSC_ACTNOTCOM,R6 
FILLFREELIST 

R »START_CIRCUIT_ERROR 


#SS$_DEVACTIVE,RO 
#XM$0_ERR_TRIB,- 
UCBSL~DEVSEPEND (RS) 
START-CIRCUIT_ERROR 


#SS$_POWERFAIL,RO 


SHUTDOWN_CIRCUIT 


COMP: 


UCBS$L_IRP(R5) ,R3 
RO,UCB$W_BOFF (RS) 
#*M<R6,R7,RB,RI> 
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Get addr of start of TFB 


Jump to the protocol 
Restore registers 
f EQL then protocol not 
n halted state don't reinit 
Fill rcv free buffer Q 
Branch to shutdown the device 
Set no status for start transmit | 
—— to send STRT message 
ranch to shutdown the device 
Set normal return 
Comp the request 


Set reason for abort 
Set to restart ciruit 


Set reason to abort 

Save reason to abort 
Shutdown the circuit 
Restore reason for abort 


Retreive packet address 
Set success 


Jump to complete the request 
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71 AG 


55 AG 
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Set protocol characterist 
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: 138 v -SBTTL Set protocol characteristic 
oe) 3; SET_CHAR = Set characteristics of protocol 
748 3 FUNCTIONAL DESCRIPTION: 
745 ; 
rs § 
747 ; INPUTS: 
748 ; R4 = MOB address 
749 ; RS = UCB address 
£39 ; 
52) : OUTPUTS 
53g 5 
754 ; 
755 ;-- 
136 SET_CHAR: 
D4 75 CLRL 
9E ¢ 758 MOVAB NOBS$Z_DDCMP(R4) ,R8B 
90 759 MOVB DLKSBMSGCNT (RBS ,- 
34 2760 KSB-MAXREP (RB) 
90 3 761 MOVB DLKSB_MSGCNT(R8),- 
3 ooe K$B_MAXSEL(R8) 
BO 3 MOVW DLKSW_REPWAIT(R8) ,- 
3 764 K$W_SELWAIT(R8) 
4 765 BISW #<OLKSM_MSGCNT!- 
45 2766 $M_SELTIM!- 
r 767 OL WAIT!- 
4 
4 
4 
4 
4 
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This routine is entered to set characteristic on a halted protocol. 


New protocol characteristics given to protocol. 


NMASC_LINPR_POI EQ 0 
#OLK$V_SETDEF ,R7 
NOB$B_PRO(R4) 


#DLY.S$V_SETDEF ,R7 
#OLKSV"STATYP.R7 
NMASC_BPX_FUL EQ 
NOBSB-DUPTR4) 


GOL KSy_DYPL X,R7 
#*M<R5,R4,R 


0 


= 


aR2> 
NOBS$A_PRO’BUFFER(R4) ,RS 
#OLKSC_CHAR,R 


CMP 
#°M<R3,R4,R5> 


| 
DL 
DL $ 
DL 
57 ! 
DOLK SELTIM! 
K$M_SELWAIT! 
7 $M ! 
TSTB 
0 BEQL 10$ 
: $c_5 
TSTB 
0 Q 20$ 
3 : PUSHR ‘ 
0c MOVL f 
93 CLRL RG 
DD 
38 
0 : $ 


Set no charac to change 

Get trib parameter block 
Use this field for RTO's 
Ana for number of Select 
intervals 

Use repwait for selwait 


Set to reset these param 


Set default char 
If EQL then point to point 


Use user given char 
Else set trib 


If EQL the full duplex 


Set charac in DDCMP 


Restore the registers 
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| ! 4 te om ~SBTTL FILLFREELIST = FILL MESSAGE FREE LIST 
| 1070 2794 ; FILLFREELIST = Fill message block free list 
: 4 PB? 3; ADDFREELIST = Add a buffer to receive List 
| , 190 : Functional description: 
| 107 799 ; This routine fills the receive buffer free List up to the quota specified 
19? B00 ; at device startup. 
107 ans ; Inputs: 
199 Si ; R2 = Buffer address (ADDFREELIST only) 
107 805 : R4 = NOB address 
1328 506 : RS = UCB address 
1970 B08 ; IPL = FIPL 
1970 810 Outputs: 
107 811 ; R3,R4,R5 are preserved 
1978 Big i 3 R1,R2 “destroyed. 
1070 2814 FILUFREELIST: : FILL free List 
52 D4 1070 2815 CLR 2 ; Clear buffer address 
0B £0 1072 2816 BBS” #XMS$V_STS_ACTIV F - : Continue if device active 
01 44 AS 05 1003 HA ase UCBSL ~DEVBEPE END(R5) ,ADDFREELIST 
1078 2819 ADDFREELIST: 3; Add to receive buffer List 
53 DD 1078 2820 PUSHL R3 3 Save registers 
re os B1 197A : 1 §$: CMPW Mattie peveur 517(R5) 6° ; Can new block be allocated ? 
35 1A 107F 28 BGTRU 20$ ; Br if no - List filled 
51 D4 1081 2824 CLRL R1 : Zero size 
004C BF Al Ht 8S? ADDW3 #RCV_T_DATA+CXB$C_TRAILER,=- 3 adh needed block size 
51 42 AS 108 826 ues _BEVBUFSIZ(R5),R1 
3 03 i3aA TH pia" Re : Buffer allocated already? 
00000099" #, 18 9 629 153 | | ansehen : AL Locate nonpaged memory 
08 A 51 B60 1097 Ba 7$ MOVW R1,RCV_W_BLKSIZE(R2) : Insert block size 
OA A217 90 1098 be MOVB S*HDYNSC NET,RCV_B_BLKTYPE(R2) ; Insert block type 
10 A 4 109F Ht CLRW CV_W_ERROR(R2) ; Clear error status 
20 A466 § 10A2 2834 INSQUE (R2J, noes FREE (R4) 3; Insert block on List 
42 A A 19Ag 5 SUBW UCBSW _DEVBOFSIZ(R5),- : Decrement quota 
40 A4 10A $ NOBSW~ ~QU0TA(R4) 
52 D4 + CLRL R 3; Clear buffer pointer 
| cB séd? : Ap He BRB 5 
10AF 40 10$: SETBIT #XMSV_STS_BUFFAIL,- : Set buffer alloc failure 
10AF 2841 yCBsL “DEVBEPEND(R RS) 
10 =«+121 i ; X: BRB 
10B6 44 208: CLRBIT #XMSV_STS_BUFFAIL,- : Clear buffer alloc failure 
10B6 2845 UCBSst ~DEVBEPEND (RS) 
50 52 09 1088 46 MOVL ; Set address of buffer 
06 13 1 oF 4 BEQL : ; Br if none | 
00000000 ° GF 16 10€ 48 JSB G*COMSDRVDEALMEM ; Deallocate it 
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; Set for normal return 
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>a 
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Restore registers 


NORMAL ,RO 


S“#SS$ 
R3 


MOVZWL 
POPL 
RSB 


ee 


RO = LBC no buffer available 

LBS buffer is available and returned in R2 : 
R2 = Address of buffer to receive into if a buffer was available 
R4, RS are preserved 


ET_RECEIVE: 


B 2 
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1960 B38 z ~SBTTL START RECEIVE and GET RECEIVE = Start receive and Get a receive buff 
1B¢p B28 ; START_RECEIVE = Start receives 
434 B28 ; FUNCTIONAL DESCRIPTION: 
10CD 2860 ; This routine sets up the driver to start receive the header. The header is 
10CD 2861 ; receive into some fields of the NOB so that even if no buffer has been 
10CD bog ; allocated or can be allocated we can still get the header and the byte 
+ +34 863 ; count of the message. 
10CD 2864 ; 
4 65 ; INPUTS: 
10CD 68 3 R4 = NOB address 
10CD 67 ; R5 = UCB address 
10CD 2868 ; IPL = Device IPL 
10CD 2869 ; 
10CD 2870 ; OUTPUTS: 
10CD 2871 ; R4, RS are preserved 
10CD sore : 
10CD 28735 ;-- 
10CD 2874 START_RECEIVE: 

43 AG 9% 9 ser? CLRB NOBSB_RSTATE(R4) ; Reset receiver state 
130) 3877 ASSUME NOBSW_FLAGS EQ NOBSW_ERROR+2 

52 AS =6B4 «61000 «2879 CLRW NOB$SW_INDEX(R4) ; Clear index into rcv buffer 

54 AG OG 1907 sees CLRL NOB$W_ERROR(R4) ; Reset flag and error fields 
4 sees ; Set up message count with size of header and crc 

50 A4 «6(08)S—(9B «1006 = 2884 MOVZBW #NO$SC_HEADER_HCRC,NOBSW_MSGS1Z(R4) 
05 10DA 2885 RSB 

10DB 2886 
10DB 2887 
1008 2888 ;++ ; : : 
434 3; GET_RECEIVE - Get a receive buffer if one is available 
10D8 $591 3; FUNCTIONAL DESCRIPTION: 
1008 $B98 3 
1008 2895 ; This routine sets up the driver to receive the data. It gets the next 
10DB 2894 ; free buffer from the queue. And sets up the fields in the 
10DB 2895 ; buffer to start receive the data. This buffer is posted 
+ ; 896 ; when the driver has finished receiveing the data for it. 
19 8 5 ; INPUTS: 
10DB 2899 ; R4 = NOB address 
10DB 2900 ; R5 = UCB address 
100B 2901 ; IPL = Device IPL 
100B 2902 ; 
10DB 29 3 OUTPUTS: 
10DB 2904 ; 
1008 : 
1008 ; 
1008 
1008 
10DB 6 
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50 04 CLRL RO ; Assume no buffer 
; If Line is in process of being shutdown do not try to get a receive buffer 
17 68 AS OA Fo BBS #NO_DS_V_SHUTDOWN ,UCBSW_DEVSTS(R5) ,10$ 
5220 B4OCOOF REMQUE @NOB$Q~ “FREE CRA). Re : Get next available buffer 
1D BVS : If VS none available 
30 AS) = 552~—~SCté‘éiT MOVL R2,NOBSL_RCV_INPR(R4) ; Set receive buffer address 


ASSUME NOBSW_INDEX EQ NOBSW_MSGSIZ+2 
ASSUME NOBSWIERROR EQ NOBSW_ = {NOEs 
ASSUME NOBSWIFLAGS EQ NOB$W-ERROR+ 


ASSUME RCV_W_INDEX EQ RCV_W_MSGSIZ+2 
ASSUME RCV-WLERROR EQ RCV_W_INDEX+2 
ASSUME RCVLWIFLAGS EQ RCV~WUERROR+2 
MOVQ NOBSW_MSGSIZ(R4) ,RCV_W_MSGSIZ(R2) 
ASSUME NOSC_HEADER_HCRC EQ 8 


MOVQ NOB$Z_HEADER(R4) ,RCV_Z_HEADER(R2) 
ROveM. S*#SSS$_NORMAL ,RO 3; Set normal return 


OC A2 50 AS 7D 


40 A2 48 AG 7D 
~~ Rs 
05 10$: 


POPSPOPONoPoNoPononoponponononofronronorrrorrrnn <s 
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MEW OS OONAUE WN" OOONOULS wn afr 
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| 
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; «SBTTL NOSGETNXT = Class driver GETNXT routine | 
NOSGETNXT = Class driver GETNXT routine entry point for PORT driver 
FUNCTIONAL DESCRIPTION 


This is the ASYNCH DOCMP transmit “‘interrupt’’ service routine. This routine 
will be called whenever the terminal port driver has completed the current 
character or burst of characters given to it by the ASYNCH DDCMP class driver. 
When called this routine will calculate the next character or burst of 
characters to transmit over the port driver. If data is returned by 
GETNXT then a timer is set in the port driver and the bit UCBS$V_IN 
; must be set in UCB$W_STS to sey that the port is still busy. Remeber that 
messages are tranmitted over the port driver in chunks of data (See 
; START TRANSMIT to get break down). 


; Note that UCBSB_TT_OUTYPE is always set to negative (unless there is 
no data to send), Becasue we always send data in bursts. 


: INPUTS: 
; R 


nm" 
1c 
=z 
om 
™~m 


UCB address 


Die Bi Di Bie De Be Be Di Be es es Re De Be Ds De es es Bs Be ee es Be Be <= 


COOOCOCOCGCGCOGCOOOCOOOCOOCOOOOCOCOOOoOO 2< 
COOCOCCOOCOOOCOTW OViwm> > > rr rr rv YvYvPDvYrDYrmDPrUDE PY YY YrrYrrrrrrr Yr Yr Pr YY Yyrrrrrrvr - 


IPL = DIPL | 
OUTPUTS: 
OF R3 = character to output 
RS = UCB address 


IMPLICIT OUTPUTS: 
UCB$B_TT_OUTYPE = Zero - no data to output 

One - single character in R3 
Negative - output a burst of data 
Burst mode ony! 
UCBSL_TT_OUTADR = Address of the first character of the burst 
UCB$W_TT_OUTLEN = Length of the burst 


RO preserved, ALL others destroyed 


NOSGETNXT: 
PUSHR 


0301 8F BB U #°M<RO,R4,RO,R7RB_-RO> | 

54 00A8 C5 b9 MOVL CB$L_NO_BUFFER(RSS ,R4 ; Get NOB address 
58 34 AG 0 MOVL NOBSL_XMT_INPR(R4) ,RB ; Get transmit address 
63 1 BEQL : If EQL no buffer to transmit 
SETBIT #UCBSV_INT,UCBSW_STS(R5) ; Assume we always have data to send 


; Increment the transmiter state to say that we should send the next block 

; of the transmit. If we increment past the sending of pads then that 

3; means we are thru with this data block and we should post this. 

; data message for come cete and start the next message transmitting. 
ASSURE NOSC_HEADER EQ NOSC_EMPTY+1 

ASSUME NOSC-HCRC EQ NOSC_HEADER+1 

SUME NOSC_ HCRC+1 
ASSUME NO$C_OC 
ASSUME NOSC_PA 


me ce ee ee ee ed ed od wd od 2d od = od = = SS 8 3 dd —™~ 
ow 


Ok tk td od ot ot = = I I BIQOODOOOCOOCOOCOOOOCOCSO 


Ca ee) a i i es Oe es i es ss i es 
IRI 9S OD NA UE WIN 0 OD NAME WIN 9 OO NAMN EWN  O OD NAU EW OOONOULS WI —OUOOn oo 


WOOD ODOODODOODOOOOOOOOOOOOOOOOOOOOWOODOOVODOODOOOVOOOVOOOODOOOOOOOOOODO 
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42 A4 03 pf 10$: cree {nestle teat. tacit: ; If NEQ normal xmt states 
013¢ 34 BRW END_XMTER ; Else handle the xmt error 
re! AG 6 128: INCB NOBSB_XSTATE(R4) 
50 42 AG QA MOVZBL NOBS$B_YXSTATE(R4*,RO ; Get state for dispatch 
SDISPATCH RO, TYPE=B,- 
<- 3; Functon : Action 
<NOSC_EMPTY 25$>,- 
<NO$C_HEADER SEND_HEADER>,= 
<NO$C“HCRC SEND-HCRO>, = 
<NOSC"DATA SEND~DATA>, = 
<NO$C_DCRC SEND_DCRC>,= 
<NOSC~PADS SEND~PADS>, = 


> 


; Fall thru to complete the buffer and start up the next transfer if possible 


14$: CLRBIT #NO_DS_V_XMT_TIME ,UCBSW_DEVSTS(R5) ; Clear due time not valid 
34 AG DS CLRL  NOBSL_RMT_INPR(RGS - Clear addr from inprogess 
OC 1F AB 02 €0 BBS #XMTQSV_CONTROL ,XMTOQS$B_FLAG(R8),15$ ; If BS catrl msg don't post 
2C B4 68 OE INSQUE (RB) ,@NOBSA_POST+4(R4) ; Post the buffer for completion 
0272 4 BSBW SCHED_FORK_I10 ; Schedule the fork 
54 BED0 POPL 


42 AG 9G 
0B 68 AS 04 €0 


SS I  MQOOODOOOOOOOOOOOO -—Ww 


OOO NAMNE WII 0 OO NOA UNE WIN O OO NA UE WIN 0 OD NAME WN OC ODNOAOUES WR OOONOUS wr 


15$: CLRB  NOBS$B_XSTATE(R4) ; Reset the transmiter state 
BBS #NO_DS_V_XMTING,UCB$W_DEVSTS(R5).20$ ; If BS then turn Link don't xm 


:; If the age yt bit is set then the circuit is going thru shutdown, 
3; therefore do not start up any other transmits over the port. 


BBS #NO_DS_V_SHUTDOWN, UCBSW_DEVSTS(R5) ,20$ 
BSBW GET" xmT ; Else get next transmit to send 
BLBS , 10$ : If LBS then data to send 
20$: CLRBIT #UCBSV_INT,UCBS$W_STS(R5) ; Set port not busy 
POPR #*M<ROTR4,R6,R7,RB,RI> ; Restore registers 


; The following instruction must be the Last instruction executed before 
3; the return to the port input routine. The reason for this is that the 
3; condition codes must correctly so that the port does the right transfer 


pune UCB$B_TT_OUTYPE(R5) ; Else set no data to send 


06 68 AS OA 3 

FB86 
, B4 50 =€E8 
0301 8F BA 


0108 (C5) 9% 
05 


258: BUG_CHECK NOBUF PCKT ,FATAL 


This code is here because DDCMP retransmission of messages must take the 
message in porgress away from the device. This is to ensure that 
messages are not transmitted out of order. Since we do not want to 

gut the aooeege short we will send pads until the message byte count 

as run out. 


30$: rsT8 NOBS$B_XSTATE(R4) ; If EQL not sending anything 


L 
MOVB NOBSB_XSTATE(R4) ,RO ; Get state 
INCB RO ; Set to next state 
MOVB ews XMTERR,NOBSB_XSTATE(R4) ; Set new state for xmter 
SDISPATCH RO,TYPE=B,- 


COOCSCCCCOOCOoOOCoOoCoCoO 


42 A4 

E9 

50 42 A4 
42 AG OA 


ooo~-o 
Sooowu 


AWAAAAAAAAAAAAA NA AA.A.AAWAAAAAA AAA AAI AAA OA AANA A AAAI AIIIInononononon 
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117D 1 <- zFunction » Action 
117D 5 <NOSC_EMPTY 25$>,- 
1170 5 OSC_HEADER rt toe 
117D 54 <NOSC_HCRC 45$>,- 
117D 2? OSC_DATA 2982+ 
1170 § <NOSC_DCRC $>,- 
1120 2f : <NOSC_PADS 60$>,- 
50 46 A4 BO 1180 59 MOVW WOGSH_KATERR_SIZECR4) RO 
ae BP 2 se BRB 65$ 
50 42 AS 08 a} 1193 $66 40$: soos #10,UCBSW_DEVBUFSIZ(R5),RO ; Set the bytes to xmt given state 
50 42 AS * > 1130 R63 45$: apes 29g VCOSU_DEVOUF SIZCAS) .RO 
0 Re TIAL aby 508s Balas 410 
0B We TG Bg see tt a 
50 09 98 11AB 3070 60$: MOVZBW #2,R0 
4205 05 90 11AE 3071 MOVB #NO$C_PADS,NOBSB_XSTATE(R5) 
34 AG 0080 C4 D 1183 B58 65$: MOVAL NOB$Z-CTL_MSG(R4),NOBSL_XMT_INPR(R4) ; Set to fake out xmter 
46046 50 80 1188 307 MOVW  RO,NOBSW_RMTERR SIZE(R4T 
011¢ CS) = 44 AG ODE: «=C11BC 3074 MOVAL NOBSW PABS(R4) ,-OCBSL_TT_OUTADR(RS) 
0120 cS 02 «(98 11¢8 075 MOVZBW #2,UCB$W_TT_OUTLEN(RS) 
0108 cS) «601s BE'sCé#édD‘IC o76 MNEGB #1,UCB$B_TT_OUTYPE(RS) 
03D1 8F A 11CC 07 POPR #*M<RO,RZ,RE,R7,RB,RO> 
0 1b) 3099 vn 
110% bby ; Set up the port to transmit the header portion of the message 
1101 oes SEND_HEADER: 
42 A464. 01 90 1101 30 MOVB #NOSC_HEADER,NOB$B_XSTATE(R4) ; Set sending header state 
011¢ CS) = =624 AB SOE «=11D5) = 550084 MOVAL XMTQSB MSGHDR(R8) , OCBSL TT_OUTADR(RS) ; Set address of header 
0120 C5 06 98 1108 3085 MOVZBW #NO$C READER_LEN UCBSW_TT OUTLENC(RS) ; Set length of header 
0301 8F BA 1160 086 POPR #*M<RO,R4,R67R7,RB,R9> 
11E4 3088 ; The following instruction must be the last instruction executed before 
11E4 3089 ; the return to the port output routine. The reason for this is that the 
W1Ee Bet 3 condition codes must correctly so that the port does the right transfer 
0108 cS) «(01)—s«éBETC#ST‘ EG O38 MNEGB #1,UCBSB_TT_OUTYPE(RS) ; Set block transfer to port 
Ain bao 
ATER 035 ; Set up the port to transmit the header CRC portion of the message 
11EA $99 SEND_HCRC: 
4g AW 0g 90 11EA 4 MOVB #NOSC_HCRC,NOBSB_XSTATE(R4) ; Set sending HCRC state 
O11C € 20 A DE 11EE 309 MOVAL XMTQS$O HCRC(R ) -OCBS, TT_OUTADR(RS) ; Set address of HCRC 
0120 C5 ge 9B 11F4 100 MOV7BW #2,UCBSW_TT_OUTLEN(RSY : Set Length of HCRC 
03D1 8F BA 1if8 ! 1 POPR #*R<RO,RS,RE,R7,RB,RI> 
11FD 31 5 ; The following instruction must be the last instruction executed before 
11FD 3104 ; the return to the port output routine. The reason for this is that the 
1168 ! 5 ; condition codes must correctly so that the port does the right transfer 
0108 ¢S) «(01s BE:SC#*éaTSCYFD O51 $ MNEGB #1,UCBSB_TT_OUTYPE(RS) ; Set block transfer to port 


34 1F AB 
ee RG 
O11c C 


0120 (5 =A ae 


0108 C5 


0108 C5 


0108 C5 


2A 


3D1 


4& 


01 


01 


05 


8F 


01 
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oO 
nae 
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; Set up the port to transmit the data portion of the message 


SEND_DATA: 


; If"the control bit is set then this is a control message and there is no 


now. 
BBS 


MOVB 
MOVAL 


; to the port. 
SUBW3 
POPR 


#XMTQSV_ CONTROL ,XMTQSB_FLAG(R8), 
#NOSC DATA, NOBSB_XSTATE(R4) 


; data to send with this message. Thus we want to send the pads out 


SEND_PADS 
sending data state 


: 3 
XMTQS$R_LENGTH(R J,UCBSL_TT_OUTADR(RS) ; Set address of data 


; Set Length of the data message. Remember that DDCMP adds the header size 
; into the message size, so we should subtract it before giving the size 


#NOSC HEADER_LEN XMTQSW_MSGS1ZE ( 
#°M<RO,R4,ROOR7,RB,RO> 


RB) ,UCBSW_TT_OUTLEN(RS) 


; The following instruction must be the last instruction executed before 
; the return to the port output routine. The reason for this is that the 
; condition codes must correctly so that the port does the right transfer 


MNEGB 
RSB 


ww ss 


END_DCRC: 
M 


#1,UCBSB_TT_OUTYPE(RS) 


#NO$C_DCRC,NOBS$B_XSTATE(R4) 
XMTQSQ_DCRC(RB), cast TT_OUTADR( 
#2,UCBSW_TT_OUTLEN(RSS 
#*M<RO,RZ,RE,R7,RB,RI> 


; Set block transfer to port 


Set up the port to transmit the data CRC portion of the message 


- Set sending data crc state 
R5) ; Set address of data crc 
; Set length of data CRC 


; The following instruction must be the Last instruction executed before 
; the return to the port output routine. The reason for this is that the 
3; condition codes must correctly so that the port does the right transfer 


MNEGB 
RSB 


#1, UCB$B_TT_OUTYPE (RS) 


3; Set block transfer to port 


; Set up the port to transmit the pads for the message 


SEND_PADS: 
MOVB 


MOVAL 
MOVZBW 
POPR 


#NOSC_PADS 
NOBSW~ PADS (R4) 

,UCBSW_TT_OUTLEN(RS) 
#°R<RO,RZ,RE,R7,RB,RO> 


NOBSB_XSTATE(R4) 


; Set sending pads state 


UCBSL TT_OUTADR(R5) ; Set address of pads 


; Set Length of pads 


3; The following instruction must be the last instruction executed before 
3; the return to the port output routine. The reason for this is that the 
: condition codes must ‘correctly so that the port does the right transfer 


MNEGB 
RSB 


#1,UCBSB_TT_OUTYPE (RS) 


; Set block transfer to port 
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; There was an error on the Line and this mechanism is used to ensure 
; that the other side gets enough data to cause a CRC error. Please 

3; note that that the Last time thru we set the PAD state in order 

; to start up the next XMT 


SEND_XMTERR: 

SUBW2 # NOBSW_XMTERR_SIZE(R4) ; Decr number of pads to send 

BGTR 10$ ; If gtr continue 

MOVB #NOSC_PADS ,NOBSB_XSTATE(R4) ; Else reset state to start transmit 
10$:  MOVAL NOBSu PADS(R4) ,UCBSL_TT_OUTADR(R5) ; Set address of pads 

MOVZBW #2,UCB$W fLEN(RS) ; Set Length of pads 

POPR #*M<RO,RZ,RB,R7,RB,RI> 


; The following instruction must be the last instruction executed before 
; the return to the port output routine. The reason for this is that the 
; condition codes must correctly so that the port does the right transfer 


—— #1, UCBSB_TT_OUTYPE(R5) ; Set block transfer to port 


| ee. 
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-SBTTL NOSPUTNXT = Asynch class driver receive character routine 
NOSPUTNXT = Asynch class driver receive character routine 
; FUNCTIONAL DESCRIPTION: 


This routine is called whenever the terminal port driver has received a 
character. Because of the nature of ASYNCH DDCMP this routine will 
not return data to transmit over the port. 


INPUTS: 
+ = Input character 
RS = UCB address 


OUTPUTS: 
R5 = UCB address 
RO is preserved ALL other registers are destroyed 


IMPLICT OUTPUTS: 
UCBSB_TT_OUTYPE = Zero no data to send 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 NOSPUTNXT: 
0301 8F BB 1 #*M<RO,R4,R6,R7,RB,RI> 
54 O0A8 CS DO 1 MOVL CBSL_NO_BUFFER(RSS ,R4 ; Get address of NOB 
16 13 1270 BEQL :; If EQL device not started 
50 43 AS QA 127F 10S: MOVZBL_ NOBSB_RSTATE(R4) ,RO ; Get receiver state 
1283 <- 3 Function ; Action 
128 <NOSC_SEAR_MSG SEARCH_MESSAGE>,- 
128 <NOSC"HEADER = RCV_HEADER>,- 
128 <NOSC_DATA RCV_DATA>,- 
8 : <NOSC"NOBUFFER RCVZNOBUFFER>,- 
' 4 BUG_CHECK NOBUFPCKT FATAL 
0301 8F BA ! 33 30$: POPR #*M<RO,R4,R6,R7,RB,RI> 3; Else ignore the char and return 
1299 3 The following instruction must be the Last instruction executed before 
1299 3: the return to the port input routine. The reason for this is that the 
! 44 3 condition codes must correctly so that the port does the right transfer 
0108 C5 «94 «=—«1299 CLRB UCBS$B_TT_OUTYPE(R5) ; Else set no data to send 
05 ! 3p RSB 
129E 1; This searches for the start of a DDCMP message. All characters are ignored 
! 43 § : until a start of message is received. 
129E 4 SEARCH_MESSAGE: 
81 8F 53 91 129 5 CMPB R3,#NOSC_SOH : Is this a start of a data message 
19 13° 12A § BE 1 : If EQL then it is 
90 BF 5 91 12A4 CMPB R35, @NOSC_DLE 3; Start of a maintenance msg? 
A 13 128 8 BEQL «=s«108 i If EQL then yes 
05 3 91 12AA CMPB R35, #@NOSC_ENQ ; Start of control message? 
5 12 12AD 40 BNEQ 2 ; If NEQ then no 
! “A 3 SETBIT #RCV_V_CNTL,NOBSW_FLAGS(R4) ; Set this is a control msg 


pt 
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! + rf ASSUME NOSC_HEADER EQ NOSC_SEAR_MSG+1 
12B4 45 ; The terminal Line receive speed is store in the UCBSW_TT_SPEED+1 unless 
1284 | ¢$ ; the field is zero in which case it is the transmit speed 
50 O0FS C5 9A B4 is 10s: MOVZBL UCBSU_TT_SPEED+1 (RS) .RO 
50 OF4 A 128 4 MOVZBL UCBSW_TT_SPEED(RS) ,RO 
50 E€E3F CF4O «3C (1 ai 50 15$:  MOVZWL DUETIA TRLEEROD Rb 
51 pounpyon' st DO 12C6 51 MOVL orn set ABSTIM,R1 
38 AG O51 0 C1 12CDd 26 ADOL RO,R1,NOBSL_RCV_DUETIM(R4) 
1 Ds 5 SETBIT #NO DS V_RCO TIME ,UCBSW_DEVSTS(R5) 
43 A464 96 12D 54 INCB noese RSTATETR4) ; Move to next state rcving hdr 
48 AG 6553) = 90s 12DA 55 MOVB R3,NOB$Z_HEADER(R4) ; Save character rcvd in hdr area 
52 AG «BG O1QDE 36 INCW NOBSW_INDEX(R4) : Incr the index into buffer 
50 AG SB? s«12€1 5 DECW NOBSW_MSGSIZ(R4) ; Decr the number of bytes to rcv 
03D1 8F BA : eB 28 20$: POPR #*M<RO,R4,R6,R7,RB,RI> 
1268 60 ; The following instruction must be the Last instruction executed before 
12E8 61 ; the return to the port input routine. The reason for this is that the 
: ee 6 ; condition codes must correctly so that the port does the right transfer 
9108 C5 Re ! 4, He c Re UCBSB_TT_OUTYPE(R5) ; Else set no data to send 
12ED 66 
12ED 67 ; This routine inputs each character into the header of the rcv buffer unitl 
! A oe 3; both the header and header CRC are input. 
12ED 70 RCV_HEADER: 
50 52 A464 3C 12ED 71 MOVZWL NOBSW_INDEX(R4) ,RO ; Get index into rcv buffer 
51 48 AG DE 12F1 i MOVAL NOB$Z_H ADERCRGS RI ; Get pointer to start of rcv buffer 
6140 53 90 12F5 7 MOVB 3,(RT)CRO 3; Move char into butfer 
52 AG =6B6 OCF 9 74 INCW NOBSW_INDEX(R4) 3; Incr the index 
50 AS =B7_séd1 FC 75 DECW NOBSW_MSGSIZ(R4) 3; Decr the pyres to rcv 
26 «(14 : Ad 6 BGTR : If GTR still more bytes to rcv 
1301 78 ; After the entire header and crc's are received copy them into a buffer. 
: 4 280 ; Set up the unit to make it start receiving the data into the message 
1301 81; BBS #NO_DS_V_SHUTDOWN ,UCBSW_DEVSTS(R5),30$ ; If device is shut dont star 
FDD? 30 «1301 Be BSBW 3s GET -RECETVE > Start receive 
29 50 €9 ! BS a BLBC RO,20$ : If LBS then buffer to rcv into 
: 4 5 ASSUME’ RCV_V_CNTL EQ 0 
67 12 A2. E8 1307 $ BLBS RCV_W_FLAGS(R2) ,COMP_RCV :; If LBS complete the control msg 
50 01 A1 60 1308 8 MOVW MFDSW-CNTFLG(R1S ,RO i Else get size of data portion of m 
50 C000 8F AA OF 9 BICW2  #<MFDSM_SELECT!MFDSM_QSYNC>,RO ; Clear the flags from the msg size 
1314 3 3; The following code is here so that we can catch the fact that systems run 
1314 35 3; with different buffer sizes. We don't want to corrupt pool i 
1314 95 ; we receive a message that is too large for our receive buffer. Incidently, 
1314 94 ; the CRC checking should catch this as an error and drop the message on the 
! 1? 2 3 floor. 
50 42 a? fy ' + $7 cory YESS _DEVOUFS1Z(R5) RO : If GEQ@ then not larger than our bu | 
50 42 A5 B60 151A 39 MOVW UCBSW_DEVBUFSIZ(R5) ,RO ; Use the smaller of the two | 


K 2 
WODR IVER = VAX/VMS DMF32 Async DOMCP Line Driver 19360-1388 90:47:19 ynivas Macro V04-00 Page 77 | 
v04- NOSPUTNXT = Asynch class driver receive ~SEP-1984 16:22:41 (CORIVER.SRCIJNODRIVER.MAR;2 (50) 
OC A2_ 50 ¢ Al 131 GO 5$: ADDW3 #2,R0,RCV_W_MSGSIZ(R2) 3; Set size of msg plus 2 for CRC | 
43 AG 90 1 1 MOV #NOSC’DATR,NOBSB_RSTATE(R4) : Set receive data state 
03D1 8F BA q ¢ 10$:  POPR #*M<RO,R4,R6,R7,R8,R9> 
1328 4 ; The following instruction must be the last instruction executed before 
1328 5 ; the return to the port input routine. The reason for this is that the 
! 4 $ 3; condition codes must correctly so that the port does the right transfer 
0108 CS) «694 «691328 38 CLRB UCBSB_TT_OUTYPE(R5) ; Else set no data to send 
05 ! F 3 RSB | 
! 6 y ; Come here when we did not have a buffer in which to receive the data 
40 56 AG EB 1330 18 20$:  BLBS  NOBSW_FLAGS(R4),COMP_RCV_NOBUFFER ; If LBS complete the control msg | 
50 01 A1 BO 1334 3314 MOVW  MFDSWTCNTFLG(R1S RO ; Else get size of data port ion of m 
C000 8F AA 1338 15 BICW #<MFDSM_SELECT'MFDSM_QSYNC>,RO : Clear the flags from the msg size 
50 a4 0 550s «02S A—sés«é1:33D 18 ADDW #2,R0,NOBSW_MSGSIZ(RZ) 3: Set size of msg plus 2 for 
3AQ6 0464 90 1342 1 MOVB #NOSC ‘ NOBUFFER,NOB$B_RSTATE(R4) 3; Set nobuffer receive data state 
0301 8F BA 46 318 POPR #*M<RO,R4,R6,R7,R8,R9> 
134A 3320 ; The following instruction must be the Last instruction executed before 
134A 3321 ; the return to the port input routine. The reason for this is that the 
it ra ; § ; condition codes must correctly so that the port does the right transfer 
0108 C5 Be ieee $$¢ cae UCBSB_TT_OUTYPE (RS) 3; Else set no data to send 
134F 336 
13et 327 ; This routine inputs each character into the data part of the rcv buffer unitl 
tr $56 3; both the data and data CRC are input. 
134F 380 RCV_DATA: 
52 30 a4 00 136 331 MOVL NOBSL_RCV_INPR(R4) ,R2 ; Get buffer 
14 13 1353 $36 BEQL 0$ ; Branch to return if not there 
50 O€ A2 3C 1355 333 MOVZWL RCV_W_INDEX(R2) ,RO ; Get index into rcv buffer 
51 40 4 43 1359 $3¢ MOVAL av 2-H ADER(R2S RI ; Get pointer to start of rcv buffer 
6140 § 90 135D 5 MOVB R3,TRT) CRO 3; Move char into buffer 
OE Ag B6 1361 $39 INCW RCV_W_INDEX(R2) : Ince the index 
OC A B7 1364 DECW RCV_W_MSGSIZ(R2) :; Decr the bytes to rcv 
09 15 1367 $3 BLEQ COMP_RCV 3; If LEQ then rcv is complete 
0301 8F BA ! rt 73 10$: POPR #*M<RO,R4,R6,R7,RB,R9> 
1390 41 ; The following instruction must be the Last instruction executed before 
136D rk 3; the return to the port input routine. The reason for this is that the 
} ts ri 3; condition codes must correctly so that the port does the right transfer 
0108 (5) 94 «(1 9p 45 CLRB UCBSB_TT_OUTYPE(R5) ; Else set no data to send 
05 ! 4 #6 RSB | 
137 rh. 3; This routine posts the current receive for 10 completion then sets up | 
' 4 : 3 up the next buffer into which to receive. 
137 29 COMP_RCV: | 
30 A4 4 137 26 CLRL NOBSL_RCV_INPR(R4) ; Clear no rcv buffer inprg 
2C B4 2 Pets 2 INSQUE (R2),@NOBSQ_POST+4(R4) ; Send buffer to post 
5 Bt 1379 4 PUSHL 4 
003A 3 1378 55 BSBW SCHED_FORK_10 :; Set up fork 
54 BEDO 137E 56 POPL R4 
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1 7 COMP_RCV_NOBUFFER: 
1381 8 CLRBIT #NO_DS_V_RCV_TIME,UCBSW_DEVSTS(RS) ; Set due time not valid 
F044 330 3 BSBW START _RECEIVE ; Set up next receive 
0301 8F BA : ; ¢ #*M<RO,R4,R6,R7,RB,RI> 
138) 86 :; The following instruction must be the Last instruction executed before 
138D 65 ; the return to the port input routine. The reason for this is that the 
: gb rt: 3 condition codes must correctly so that the port does the right transfer 
0108 (C5) «94 1380 96 CLRB UCBS$B_TT_OUTYPE(R5) ; Else set no data to send 
05 1391 6 RSB 
139 of 
139 69 RCV_NOBUFFER: 
50 AS «BB? s«d139 70 DECW NOBSW_MSGSIZ(R4) 
5A 15 139 71 BLEQ COMP_RCV_NOBUFFER 
03D1 8F BA ! sd i POPR #*M<RO,RZ,R6,R7,RB,R9> 
1325 74 ; The following instruction must be the Last instruction executed before 
1398 75 ; the return to the port input routine. The reason for this is that the 
1398 6 3 condition codes must correctly so that the port does the right transfer 
0108 C5) —-«94S«s«'139B «3378 CLRB UCB$B_TT_OUTYPE(R5) ; Else set no data to send 
05 139F 44 RSB 
13A0 80 
13A0 3381 
13A0 3382 
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= Asycnh DDCMP fork ro SEP=19 
. -SBTTL WOSCLASS_PORTFORK ~ Asycnh DDCMP fork routines 
NOSCLASS_PORTFORK = Asynch DDCMP port fork routine 

FUNCTIONAL DESCRIPTION: 

This routine is called by the port driver when the port driver needs to start 


3¢ 
: up a fork process. This routine enty schedules a fork if no fork is already 
; scheduled. If a fork is scheduled then a bit is set in UCBSL_FR3 to indicate 
; that the port driver must be called at its FORK entry point. 
: INPUTS: 
; RS = UCB address 
; OUTPUTS: 
: FORK may be scheduled 
NOSCLASS_ PORTFORK: 
Bess #NO_DS_V_FORK_PEND,UCBSW_DEVSTS(R5),10$ ; If BS then fork pending 
PUSHAW wW*FORK-DONE ; Set address of fork routine 
MOVZBL #NO_FS _M_PORTFORK,R3 3 Set type of fork 
JMP G*ERESFORK 


10$: eae’ #NO_FS_V_PORTFORK ,UCBSL_FR3(R5) ; Set port fork pending 


p++ 
; SCHED_FORK_IO - Schedules forks for asynch ddcmp class driver 
; FUNCTIONAL DESCRIPTION: 
: This routine schedules the 10 completion forks for the geynen class 
; driver. If there is a fork pending on the device then no fork 
; is scheduled but a bit is set in UCBSL_FR3 indicating that there is 
; some 10 to complete when the fork is processed. 
: INPUTS: 
3 R5 = UCB address 
; OUTPUTS: : 
; FORK may be scheduled 
SCHED_FORK_10: 
Bess 


#N0_DS_V PORK PEND UCESU_DEVSTS(AS) 108 If 6S then fork pending 
; Set a 


PUSHAW W*FORK-DON 3 dress of fork routine 
MOVZBL #NO_FS_M_IOFORK,R3 ; Set 10 fork 
JMP G*ERESFORK 


10$: serett #NO_FS_V_IOFORK,UCBSL_FR3(R5) ; Set port fork pending 


SCHED_FORK_POWERFAIL: 
B #NO_DS_V_FORK_PEND ,.UCBSW_DEVSTS(R5),10$ ; If BS then fork pending 
PUSHAW W*FORK"DONE ; Set address of fork routine 
MOVZBL #NO_FS_M_POWERFAIL,R3 ; Set Powerfail fork 


| 
| 
| 
| 
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Line Driver 16-SEP-1984 :47:19 VAX/VMS Macro V04-00 Pa 0 
NOSCLASS PORTFORK > Asycnh DDCMP fork ro “Seer 08s le PAN WER eaeanobeiver.mar:2 © °%" c8t) 
00000000'GF 17 13D i JMP ss G*EXESFORK 
10$: pererr #0_FS_V_POWERFAIL,UCBSL_FR3(R5) ; Set port fork pending 
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v04-001 NO$SETUP_UCB = Asynch DDCMP set up UCB 6-SEP=1984 16:22:41 CDORIVER.SRCINODRIVER.MAR;2 

E 447 < .SBTTL NOSSETUP_UCB = Asynch DDCMP set up UCB 

t 49 ; NOSSETUP_UCB = Asynch DDCMP set up UCB 

E 431 : FUNCTIONAL DESCRIPTION: 

13 238 : This does nothing 

13E 454; 

1368 3455 : INPUTS: 

13E 456 ; RS = UCB address 

13E 457 ; 

13 498 ; OUTPUTS: 

13E 459 ; NONE 

13E 460 ; 

13E8 3461 ;-- 

1368 46¢ NOSSETUP_UCB: 

05 1368 346 RSB 
13E9 3464 


. 3 
sync DDMCP Line Driver 16-SEP-19 


NODRIVER = VAX/VMS DMF32 A Sf 00:47:19 VAX/VMS Macro v04-00 Page 8¢ 
v04-001 NOSPORT_TRANSITION = Asynch DDCMP port t 6-SEP-1984 16:22:41 DRIVER. SRCINODRIVER.MAR; 2 (55) 

! 33 188 we -SBTTL NOSPORT_TRANSITION = Asynch DDCMP port transition routine 

! e3 208 ; NOSPORT_TRANSITION = Asynch DDCMP port transition routine 

: 58 76 ; FUNCTIONAL DESCRIPTION: 

1 34 ti6 ; This does nothing 

13—E9 3475; 

13E9 3474 ; INPUTS: 

13€9 3475 ; Ri = Transition type (one of the following) 

1369 3476 ; MODEMSC_INIT = initialize the modem control 

1362 477 ; MODEMSC_SHUTDWN = Shut down the Line and protocol 

13E9 3478 ; MODEMSC_DATASET = Data set signal changes 

13E9 3479 ; R2 = rype specific argument ; 

13E9 3480 ; MODEMS$C_DATASET = new receive modem mask 

13€9 3481 ; RS = UCB address 

13€9 3056 3 

13E9 $78 ; OUTPUTS: 

13E9 3484 ; NONE 

13E9 3485 ; 

13E9 3486 ;-- 

13E9 3487 NOSPORT_TRANSITION: 

05 1369 3488 RSB 
13EA 3489 
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v04-001 NOSPORT_TRANSITION = Asynch DDCMP port t 6=-SEP-1984 16:22:41 DRIVER. SRCINODRIVER.MAR; 2 5). 
13EA 3491 
135EA $36 
! + rh ad -SBTTL NOSREADERROR = Asynch DDCMP read error routine 
! 5A rt ; NOSREADERROR = Asynch DDCMP read error routine 
! 5A 630 3 FUNCTIONAL DESCRIPTION: 
13EA 3499 ; This routine deciphers the error sent by the port driver into an 
13EA 3500 ; error code to give to the protocol. 
13EA 3501 ; 
13EA 288 3 INPUTS: 
13EA 35035 ; R3 = Character and flags: 
13EA 3504 ; Flags: 
13EA 3505 ; Bit 12 - parity error on the given character 
13EA 3506 ; Bit 13 - framing error on the given character 
13EA 3507 ; Bit 14 = data overrun 
13EA 3508 ; R5 = UCB address 
13EA 3509 ; 
13EA 3510 ; OUTPUTS: 
13EA $21! ; NONE 
13EA 21¢ : 
13EA 3513 ;-- 
13EA 3514 NOSREADERROR: 
0105 8F BB I13EA 3515 PUSHR #*M<RO,R2,R4,R6,R7,R8> 
54 O0AB CS DO 136 3576 MOVL § UCBSL_NO_BUFFER(RSS ,R4 ; Get NOB address 
16 13 13F3 3517 BEQL 10$ , 

50 43 A4 QA 13F5 3518 MOVZBL NOB$B_RSTATE(R4) ,RO ; Get receiver state 
13F9 3519 SDISPATCH RO, TYPE=B,- ; 
13F9 $250 <- 3; Function 3; Action 
13F9 521 <NO$C_SEAR_MSG NO_ERROR>,- 
13F9 $285 <NO$C_HEADER HEADER_ERROR>,=- 
13F9 352 <NOSC_DATA DATA_ERROR>,=- 
133 3595 = <NO$SC_NOBUFFER NOBUFFER_ERROR>,=- 
1407 526 BUG_CHECK NOBUFPCKT, FATAL 
140B 3527 : 
1408 35 8 NO_ERROR: 

01D5 8F BA 140B 5 POPR #*°M<RO,R2,R4,R6,R7,R8> 
0 TaN 3831 ng 
1410 236 : If the device is rcving the header and it did not get an overrun error 
ad 237 3 then set that this is a header crc error. 
1419 338 HEADER_ERROR: 
1219 335 ; Get a buffer from the queue of free buffers. If there 
hy 238 ; is no buffer available then the error cna not be reported. 
FCC8 3830 1419 540 BSBW GET RECEIVE 
28 50 «=6—E9 141 541 BLBC BY Roeyrr ee ERROR 
0653 OF £0 1416 248 BBS #*XE.R3,0VERRUN_ERROR 
10 A2 9 BO 141A 354 MOVW #OLK$m HDRCRC ,RTV_W_ERROR(R2) 
12 «11 144 344 BRB COMP_RCV_ERROR 

143 248 ; Set that the device got a receive overrun error 
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DRIVER. SRCIJNODRIVER.MAR; 2 
48 OVERRUN ERROR: 
4 MOVW  #DLKSM_RCVOVR,RCV_W_ERROR(R2) 


” 
R 
330 COMP_RCV_ERROR 
338 ; If the device was receiving data then set that this is a data cre error. 
327 DATA_ERROR: 
555 MOVL NOBSL_RCV_INPR(R4) ,R2 ; Get receive buffer 
336 BBS #°XE,R3, OVERRUN ERROR 
55 MOVW  #OLKS$M_BATACRC,RCV_W_ERROR(R2) 
338 ;BRB © COMP_RTV_ERROR 
325 COMP_RCV_ERROR: 
561 CLRL NOB$L_RCV_INPR(R4) ; Clear rcv inpr 
26 ig (R2) ,@NOBSQ_POST+4(R4) ; Put buffer on queue to comp 
564 BSBW SCHED_FORK_10 ; Sched a fork to comp buffer 
565 POPL R4 
566 NOBUFFER_ERROR: 
U4 6SBw START_RECEIVE ; Start up next receive 
$258 
570 


POPR #*M<RO,R2,R4,R6,R7,RB> 
RSB 
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NOSREADERROR = Asynch DDCMP read error r 6=SEP-1984 16:22:41 DRIVER. SRCINODRIVER.MAR; 2 ( 
1449 78 
1223 a7 -SBTTL NOSCLASS_DISCONNECT = Asynch DDOCMP class disconnect 
++ 
1228 2? ; NOSCLASS_DISCONNECT = Asynch DDCMP class disconnect 
1228 r 3; FUNCTIONAL DESCRIPTION: 
1449 oS ; This does nothing 
1449 3580 ; 
1449 3581 ; INPUTS: 
1449 35 ¢ 3 R5 = UCB address 
1449 3583 ; 
1449 3584; OUTPUTS: 
1449 3585 ; NONE 
1449 35 $ : 
1449 3587 ;-- 
1449 288 NOSCLASS_DISCONNECT: 
05 1449 9 RSB 
144A 3590 
144A 3591 
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os ~SBTTL NOSCLASS_POWERACTION = Asynch DDCMP power action 
; NOSCLASS_POWERACTION = Asynch DDCMP power action 

FUNCTIONAL DESCRIPTION: 

This routine forks to shutdown the device on a power fail. 


INPUTS: 
R5 = UCB address 


OUTPUTS: 
NONE 


_—> 
wy 


OSCLASS _POWERACTION: 
gseu SCHED_FORK_POWERFAIL 
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v04- NOSNULL = Asynch DDCMP null routine 6-SEP-1984 16:22:41 (CORIVER.SRCINODRIVER.MAR; 2 (59) 


et $16 a -SBTTL NOSNULL ~ Asynch DDCMP null routine 
1668 614 : NOSNULL = Asynch DDCMP null routine 
1446 616 : FUNCTIONAL DESCRIPTION: 
144E 018 ; This does nothing 
12ee 3620 | INPUTS: 
144 p 1; "RS = UCB address 
144E 36 : ; OUTPUTS: 
144E 3626: NONE 
ae 
144E 36 § NOSNULL : 
05 1446 3628 RSB 
144F 3629 
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1 NOSNULL = Asynch DDCMP null routine - 

nt ~SBTTL FORKDONE = Fork process 
FORKDONE = Fork process 

FUNCTIONAL DESCRIPTION: 


: This routine is entered for two reasons either to complete some I0, or 
; because the port has some work that must be done at FORK Level. 


— 
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144F 
144F 3635 ; 
144F 6 3 
144F ° 3 
144F : 
144F 3637 ; 
144F 3638 ; 
der 3 0; 
144 6 1: INPUTS: 
144F 36 : ; R4 = NOB address 
ree’ 2 : 3 R5 = UCB address 
144F 36 : : IMPLICIT INPUTS: 
Veer rats 3 UCBSL_FR3 = Type of fork 
164F 649 : IPL = FIPL 
144F 3651 : OUTPUTS: 
144F $36 3 RS = UCB address 
yer’ O37 : RO,R6 - RY are preserved. 
144F 3655 ; If a receive I/0 request is pending, the receive is completed. 
144F O26 ; Otherwise, queue the message for a future 1/0. 
146r $38 : 
02c2" 144F 3659 ° .WORD TIMEOQUT-. 
1451 3660 FORK_DONE: 
1451 661 DSBINT UCBSB_DIPL(RS) : Disable device interrupts 
1458 666 CLRBIT #NO_DS_V_FORK_PEND,UCBSW DevsTs(R5) ; Clear fork pending 
0D 10 a5 4(00—Cé#ESS 1450 663 BCC #NO~FS"V~PORTFORK ,UCBSL_FR3(R5),5$ ; If BC don't call portfork 
50 0118 C5 00 1298 665 MOVL UCBSL_TT_PORT(R5) ,RO ; Get port vector table 
34 4 19 Veen 666 gs8 SCOR FOREST (RD? ; Call port fork routine 
16g 668 5$: ENBINT ; 
14 3 669 10$: DSBINT UCBSB_DIPL(RS) : Disable device interrupts 
1679 670 CLRBIT #NO_FS_V_IOFORK,UCBSL_FR3(R5) 
1or ore ; Check for a powerfail and shut down the device if one has happened 
4210 AS O02 €4 443 ere pest #NO_FS_V_POWERFAIL ,UCBSL_FR3(R5) ,45$ 
54 OOA8 C5 dO 12bé or OVL UCBSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
03c0 8F Be 1488 367 PUSHR #*M<RB,R7,R8B,R9> 3; Save registers 
2 28 B4 F Ht of8 15$: REMQUE NOBSQ’ POST (R4) ,R2 ; Get next buffer to complete 
1 1D 14 ; 67 BVS : If VS then no buffer found 
13. «OA Ag 7 1633 ? ? He RPSB_TYPE(R2) ,S*#DYNSC_BUF 10 : If NEQ then not XMT buffer 
0131 i$ 1498 36 § BSBW IE MISATT DOME 3 Fonpiete the transmit 
18 50 34 4 6 BLBC RO,40$ : If BC then error on buffer 
ES 1 146A 684 BRB 1 ; Get next ontey to post 
17 OA a bf ? 5 20%: ce RPSB_TYPE(R2) ,S*#DYNSC_NET : If EQL then RCV buffer 
003 34 14A9 36 ; BSBW RECEIVE _DONE ; Complete the Receive 
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VORn us FORKDONE = Fork process ae ets 90: :22:4 > YO DRI VER. SREINODRIVER. MAR;2 7 (61) 
OA 50 9 16AC 3% 8 BLBC RO, 408 : If BC then error on buffer 
; 1 146AF ? BRB ; Get next entry to post 
30 C 1481 y 30$: MOVZWL S*aSS$_ NORMAL ,RO ; Set status 
03CO 8F Be 1484 369 POPR #°M<R6>R7,RB,RI> ; Restore registers 
5 1788 $36 RSB 3; Return 
03CO 8F BA 1489 3694 408 POPR #*M<RE 4g R8 gre ; Restore registers 
1 —E1 1480 3695 BBC aXMSv TRIB 3; Assume trib shutdown 
OD 44 A 148F 696 UCBS$L ~DEVBEPEND (RS), 50$ 
0418 31 ee o2 BRW SHUTDOWN. CIRCUIT 
14C 639 45$ ENBINT 
Oo es AG UE GHAR AMY vee ggcarcns 
14CF 7 § 50$: SETBIT ar) ERR 10 fod UCBSL -DEVDEPEND(R5) ; Set fatal error 
0377 = 311 1308 704 BRW SHUTDOWN_CIN ; Br to shut down the device 
1407 3705 60$: BUG_CHECK NOBUFPCKT,FATAL ; Else fatal, error 
140B 706 
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-SBTTL RECEIVE_DONE = Complete a receive buffer 


p++ 
RECEIVE DONE 


; FUNCTIONAL DESCRIPTION: 


; When the class driver finishes a receive buffer this routine is called to 
; post the receive. First 
; a call is made to the protocol to strip off the header and check the CRC's 


; to ensure the data made it over the wire ok. If an error is detected then 


; the error is recorded in the protocol and the buffer is returned to the 

; free buffer pool, and NOT given to the user. If no error occurs and the 

; buffer is a protocol control message then the buffer is returned to the free 
; buffer pool. If this is a data message and a IRP is free the buffer is 

; completed with the IRP, else it is put on a queue to await 1/0 completion. 


INPUTS: 
= Message buffer address 
R4 = NOB address 
RS = UCB address 


OUTPUTS: 
0 = Status 
R2,R3,R4, and RS are preserved 
ECEIVE_DONE: ; Receive done 
PUSHR #*M<R2,R3,R4,R5> 3; Save registers 
MOVZBL #DLKSC_RCVMSG,R6 : Set that this is a RCV 
MOVW RCV_W_ERROR(Re) ,R7 : Set error bits 
MOVAL RCV~Z~HEADER(R25 ,R8 : Get buffer address 
LRL R9 ; Clear reg 
Bre See FRO FERIAS) LR ; Set protocol buffer address 
POPR #*M<R2,R3,R Restore registers 


oO 
< 
=< 
n“ 
as 
ne 
—2D 
~wuM 
il 
r] 
nN 
~" 
. 


Set transfer size 
If EQL then protl not active 


; If NEQ then fatal protocol 


MOVW  =ROLRCV_W_M 
CMPB  =—- #DLKSCACTNOTCOM,R6 
BEQL 40 

BITW  #<DLKSM_PRSTERR!- 


LESA_WORERR> .R? ; error go to shutdown the 
BNEQ 3; circu 

BITW #<DLKSM_STRIRCV!- ; If NEQ then trib error 
a DLKSM_MATRCV>,R7 3 go to shutdown the circuit 


6 
BBS #OLK$V_CRC,R7,40$ 


BBC #OLKSV~TRNLK,R7,208 : If BC don't turn 
BICW #NO_DS MA XnT ING - ; Start transmitter 
UCBSW_BEQSTS(RSS 
PUSHR #*M<R2,R7> : Save the register 
CLRL R 3; Set no status for start xmt 
BSBW START_TRANSMIT : Start the tranmsit 
POPR @*A<R2,R7> ; Restore the register 
BLBC RO, ; Branch on error 
208: BBC #OLKSV_XMTCMP,R7,23$ : If BC no transmit to complete 
PUSHL R 3; Save receive buffer 
BSBW pg MeSH EAT 10 : Else branch to post the 1/0 
POPL R 3; Restore receive buffer 


If CRC failed don't complete buff 
Link 
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1657 08 €1 5 23$: BBC #OLKSV_RCVACK,R7,40$ : If BC then not a data message 
53 18 84 OF REMQUE Sypere_ACvS «NS? .R2 3; Remov waiting rcv 1/0 request 
2 10D vs 25 3 VS then no packet to complete 
dD «(11 RB FINISH _RCV_IO 3: If found then finish the 1/0 
14 B4 $¢ OE Ft $ INSQUE (R2),@NOBSQ_ATTN+4(R4) ; Else, queue message buffer 
4 3 0$: PUSHL 
019¢ 0 BSBW POKE_USER ; Poke the user 
54 8ED0 POPL R4 
04 11 BRB 45$ 
24 B84 62 ge 40$: INSQUE (R2),@NOB$SQ_FREE+4(R4) ; Return the buff to free List 
50 3601 3g 45$: peel. $*#SS$_NORMAL ,RO ; Set normal return 


55$: SETBIT #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Set that a fatal error occurd 


QVQQq_qq 
OOO OO 009090009 09 0009 0909 08 SIN NINN NOOO O 


MEW $9 OONAUE WN OOO NOUES WIN OOOno 
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IF DF ERRSSS 
incw ucb$w x9 grectrs? ; inc persitant error count 
-ENDC ;DF ERRSS 
16 =«=«11 58$: BRB 65$ 
c8 60S: BISL #<XMSM_ERR_START! = ; Assume the trib error occurrd 
XMS TRIB>,= ; because a STRT was received 
44 AS  00C00000 8F UCBSC_DEVDEPEND (RS) 
OA 57 O07 €1 BBC #OLK$U_MNTRCV,R7,65 ;_If BC then true 
CLRBIT #XMSV_ERR_START,UCBSL_DEVDEPEND(R5) 
SETBIT #XMSV_ERR_ MAINT UCBSL_DEVDEPEND(RS) ; Else set maint msg rev'd 
50 2004 8F 3C 65$: MOVZWL #SS$_BEVIRACT,R ; Set protocol inactive 
24 B4 62 O€ 796 70$: -INSQUE (R2)7@NOBSQ_FREE+4(R4) ; Return the buff to free List 
05 a t4 RSB 
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-SBTTL FINISH_RCV_IO = Finish receive I/0 processing 


: FUNCTIONAL DESCRIPTION: 


++ 
; FINISH RCV_IO = Finish receive 1/0 processing 


; This routine completes a receive operation that has been matched with a 
3; message block. After the receive has been completed the message free List is 


; filled and a receive is started if needed. 


INPUTS: 


I 
NOB 


8 


IPL = FIPL 
OUTPUTS: 
R5 


f 


INISH_RCV_IO: 
MOVAL RCV_T_DAT 
MOVZWL RCVW"MSG 
CLRL sR 
MOVL  R2,IRPS$L_S 
MOVL IRPSL_MEDI 
ADDW  UCBS$W"DEVB 
NOBSW” QUOT 
CMPW =—s RO, IRP$W_BCN 
Lequ 208 
MOVZWL IRP$W_BCNT(R 
20$ MOVW RO, IRP$W_BCNT(R 
ASHL  #16,R0,R0 
BNEG 25$ 
MOVW #SS$_CTRLERR,RO 
BRB 30$ 
58: MOVW  $*#SS$_NORMAL,RO 
0$: MOVL  RO,1 
MOVB = #DYN 
BSBB  —=«:10._ DON 
BSBM FICLFREELIST 


; Complete a transfer 1/0 operation 


TRANSMIT_10_DONE: 


BBC #XMTQSV_ INTERNAL ,- 
XMTQ$B_FLAG(R1) , 10_DONE 


MOVL 
JSB 
10_DONE : 


= message buffer address 
/0 paches address 
ess 


= UCB address 


= UCB address 
The request is completed via I/0 post. 


Sete Se Se Se Ge Se 


RPSL_MEDIA(R3) 
$C_BUF IO, IRP$B_TYPE(R2) 


R1,RO 
G*COMSDRVDEALMEM 


Finish receive 1/0 request 
Insert address of the data 
Get size of transfer 
Assume error 

Save block address 

Insert saved user VA 
Adjust unit quota 


Request larger than actual? 
Br if no 


Set size to min. of two sizes 
Set size to transfer 


Set success k 
Set status and size 


PSI eupects this in all buffs 
Post the I/0 request 

Return rcv buffer to free q 
and start next RCV 


If BC then not an ‘“‘Interal"’ 
IRP, else must dealloc the 
buffer used to transmit 

Set to dealloc the buffer 
Deall the buffer 

Comp a transfer 1/0 operation 


es (83) 
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44 A DO 15¢B 57 MOVL UCBSL _DEVDEPEND (25) = ; Set other info 
3C A 15C¢ 28 raat MEDIA+4(R3) 
0 —1 15D 5 BBC #IRPS$? D1 AGGUF - ; Br if no diagnostic buffer 
142A A 15D 60 IRP$W_STS(R3) ,00$ 
50 4C 8B cr 15D 61 ADDL3 #8,@IRP$L_DIAGBUF (R3) ,RO ; Addr buffer past start time 
80 00000000'GF 7D 15DA 8 MOVO G*EXESGQ SYSTIME,(RO)+ : Insert stop time 
80 0082 C f 1561 6 MOVZWL UCBSW_ERRCNT(RS),(RO)+ ; Insert error counter 
OF 15E€6 64 BSBW NOSREGDUMP 
00000000 ' GF 1 34 $0? 20$: JMP G*COMSPOST ; Post the 1/0 


<z 
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15EF 68 
12eF ? Hf -SBTTL TRANSMIT_DONE - Transmit completion routine 
13eF 4 3; TRANSMIT_DONE = Transmit completion routine 
ier 73 3 FUNCTIONAL DESCRIPTION: 
15EF 75 ; This routine is called when a transmit buffer needs completion. If the 
15€F a6 ; transmit buffer completed was a protocol control buffer then nothing 
15EF 77 ; happens with the buffer. In fact it should be part of an the NOB 
15EF 3878 ; structure . If the transmit was a data buffer, the routine | 
1oeF 143 3; calls the protocol to deal with the buffer. If fhe protocol notifies the 
15EF Hi ; driver that it has XMT's to send to I/0 completion, the driver pulls these 
3; buffers o e complete queue and sends them o © complete via P 
1SEF 388 buf f ff th let d ds th ff t lLete via COM$POST 
13EF HG INPUTS: | 
1SEF 3884 ; = Address of buffer to complete 
1SEF 3885 ; R3 = If error then contains the error from the device 
1SEF 3886 ; R4 = NOB address | 
13 +H : R5 = UCB address | 
: | 
ie ap en 
15EF $09, 3 OUTPUTS: 
15EF s38 : R4,R5 are preserved 
Hae 
IBEF 3895 TRANSMIT DONE: | 
58 52 00 15EF 3896 MOVL P ; Put buffer addr into R8& | 
30 BB 15F2 3897 PUSHR #*M<R4,R5> ; Save registers 
55 OC A& DO 15F4 3898 MOVL NOBSA_PRO_BUFFER(R4) ,RS :; Set protocol buffer address 
56 02 9A 15F@ 3899 MOVZBL #DLKSC_XMTMSG,R6 ; Set up to put on RTOQ if the 
57 oi 9A 13F8 300 MOVZBL #DLKSH_MSGSENT .R7 ; msg needs to be timed out 
E9FD* 5 1600 O88 BSBW DDOCMP ; Branch to protocol 
30 BA 1603 390 POPR #*M<R4,R5> ; Restore registers 
02 57 OA €1 1605 3904 BBC #DLKSV_XMTCMP,R7,30$ : If BC then no XMT’s to compl 
04 10 1609 3905 BSBB FINISH_XMT_10 ; Else complete the XMT 
50 01 3C 1608 3906 30S: MOVZWL S*#SS$"NORMAL ,RO ; Set normal return 
0 e0F 3908 ony | 
160F 3909 FINISH_XMT_I0: 
03CO 8F 8B 160F 3910 PUSHR #*M<R6,R7,R8,R9> ; Save registers | 
56 O¢ AS 00 1613 911 MOVL _ NOBSA_PRO BUF FER(R4) .R6 : Get protocol buffer address 
58 8 Bg OF 161 aig 5$: REMQUE a@TFS$Q-CMPO(R6) RB ; Get the next entry on queue 
1D 1618 391 BVS 208 : If VS then branch to finish 
53 OC AB go 161D 3914 MOVL XMTQS$L_IRP(R8) .R3 ; Get IRP associated with XMT 
50 1A A8 C 1621 3915 MOVZWL XMTQ$W MSGSIZE(R8) RO ; Get transfer size 
50 0 A2 1625 3916 SUBW2 #NOSC READER_LEN,RO ; Subtract out the protocol hdr 
_ fe ee 78 1628 3917 ASHL #16,R0,R0 ; Set up status 
12 162C 318 BNEQ : Br if data transmitted 
50 0054 8F oY 1 344 at FeeS_CTRLERA.RO ; Set device error 
50 1 BO 16 921 10$: MOVW #SS$_NORMAL ,RO 3; Assume success 
38 A350 D0 1638 39 g 15$:  MOVL RO, IRPSL_MEDIAC(R3) | 
51 8 4 163C 39 MOVL ; Set XMTQ buff address 
FF7B «30 «163F «63924 BSBW _ TRANSMIT_I0_DONE ; Complete the 10 
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i! 1669 925 BRB 5$ ; Get next to complete 
C 164 9 § 20$: MOVZWL S*#SS$_NORMAL ,RO 
BA 1647 39 POPR #*M<R67R7,R8,R9> ; Restore registers 
05 1648 3928 RSB 
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DEVTIMER: 
MOVL §_UCBSL_NO_BUFFER(RS) ,R4 ; Get NOB address 
BBS #XMSV~ERR_FATAL,UCBS$L_DEVDEPEND(R5),30$ ; If BS then fatal err 
BBS #OLK$0_PRSTERR,R1,30$ ; If B 


mmo 
ooo 


S then psrt err shut down 
3; the device 


; Before we do anything else we should check to see if the xmts and/or 
3; receives in progress timed out. 


DSBINT UCBS$B_DIPL(R5) 
MOVL 


1 3++ 

¢ : DEVTIMER = Device wakeup routine 

4 : Functional Description: 

§ : This routine is called when the protocol timer every second when the 
: preseess timer ticks to start -~ transmits the protocol may 

8 ; have queued as a result of the timer going off. 

0 ; INPUTS: 

1 ¢ Ri = Error status from protocol specific timer routine 

¢ : RS = Address of the UCB 

4 ; 

>} OUTPUTS: 

8 3 RO = Status of Line is LBS then Line is up 
: LBC then Line is down 

8; On error the Line is shut down, however the UCB is not 

4 : deal located 

1 i-- 

¢ ENABL LSB 

4 

5 

6 

7 

8 

9 

0 

1 


OOD DO09 SIN NIA AA MMM BE BE EERE PPLE PPP PPP PPLE 
DDD DPA ADP BB ES BB BE BE NANI 


me ee ee em ed ed ed ed od od 8d wd Dd do 8 dd 8 8 2 2 
Doowor oOo Bou—SS O— S PP PF PF POH MOOOOAOOOOHOOAAOOAOAOOOOAOOO 
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52 _00000000'GF dO G*EXESGL_ABSTIM,R2 : 
19 68 AS OB €1 4 BBC #NO_DS_V_XMT_TIME ,UCBSW_DEVSTS(R5),5$ ; If clear time not valid 
3C AG 32 D1 5 CMPL  R2,NOBSLXMT~DUETIM(R4) : If LEQ time not up 
1 15 6 BLEQ 5$ 
009B 830 7 BSBW TIMEOUT ; Else timeout message 
50 O0F4 CS 9A 68 MOVZBL UCB$W_TT_SPEED(RS) ,RO ; Reset due time 
50 EAB4 CF40 = (3¢ 69 MOVZWL DUETIA. TABLECROJ,RO 
3C_A4 32 50 Al 70 ADDWS RO,R2,NOBSL_XMT_DUETIM(R4) 
20 68 A Oc «€1 71 5$: BBC #nd_DS V_RCOU_TIME ,UCBSW_DEVSTS(RS),8$ ; If clear time not valid 
38 A4 30 D} 2 cHPL RO.ROBSL-RCV_DUETIMCR4) ; [f LEQ time not up 
9070 30 74 BSBW TIMEOUT ; Else timeout message 
50 OOF5 C5 9A 75 MOVZBL UCBS$W_TT_SPEED+1(R5),RO ; Reset due time 
05 12 6 BNEQ 6$ 
50 OOF4 C5 QA 7 MOVZBL UCBS$W_TT_SPEED(RS) ,RO 
50 EASF CF4O 3C 16A 08 6$: MOVZWL DUET A_TABLECROJ,RO 
38 AG) «=65520—=Ci«‘SSDtséA#SN 4 as oy t ee RO,R2,NOBSL_RCV_DUETIM(R4) 
36 01 on 1 MOVZWL S“#SS$_NORMAL ,RO ; Assume everything ok 
681 : ; If the protocol timer has expired then clear the XMTING flag so that 
681 4 ; the control message which must be sent can be. This is true when the 
681 5 ; device is running half duplex. If the message with the select flag is dropped 
681 6 ; then we must be sure that we can send anouthe message with a select flag. 
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1681 3987 
05 51 OF €1 1681 a8 BBC #OLKSV_TMREXPD ,R1,10$ 
1685 39 CLRBIT #NO_DS~V_XMTING, UCBSW_DEVSTS(R5) 
H Be 16BA 3990 10$: PUSHL R11 
F5 ° Beno et 94 pseu ale ceataatnals ; Else try to start a transmit 
0B e9 19Ce 398 BLBC RO, 308 ; If LBC then fatal error 
51 8000 8F AA 16C 994 BICW #OLKSM_TMREXPD,R1 ; Clear timer expired 
05 158 1444 20$: RSB 
19C8 $37 sURRERERELELLE WHAT TO DO Geeeeeeeece 
1oc8 3599 25$: SETBIT #XMSV_STS_DISC,UCBSL_DEVDEPEND(RS) ; Set modem disconnect sts 
1600 4001 ; TFB/GFB blocks are deailocated on shutdown. Make sure RO is 
1903 1008 3; clear so that the timer routine does not try to access them. 
1600 4004 30$: SETBIT #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS) ; Set fatal error 
0176 30 1605 4005 BSBW SHUTDOWN_CINE ; Shut down the device 
50 04 1608 4006 CLRL RO 
05 16DA 4007 RSB 
16DB 4008 -DSABL LSB 
16DB 4009 
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1608 $ 12 rt -SBTTL NOSREGDUMP = Error log and diagnostics register dump 

1608 4 13 ; NOSREGDUMP -Diagnostics register dump routine 

DB 4 13 : Functional description: 

1608 4 1H > This routine is used to return 2227? 

160B 4 18 ; INPUTS: 

160B 4020; Ro = ADORESS OF THE BUFFER 

1908 2 13 R5 = UCB ADDRESS OF THE UNIT 

18B 4 : : OUTPUTS: 

1608 4024 ; RO,R1 ARE USED 

1908 rt S$; RS = UCB ADDRESS OF THE UNIT 

16DB 49 5 NOSREGDUMP : 

08 1608 4 8 BBC #XMSV_STS_ACTIVE,=- ; BR if not active 
00 44 AS 16DD 40 UCBS$L~DEVBEPEND (RS) , 208 
BF GR am ee 


SAE ae ee aes area Fe 


NODRIVER = VAX/VMS DMF32 Async DDOMCP Line Or iver 1 ~$E0= 1388 90:42:19 AX/VMS Macro V04-00 Page 99 
v04-001 Poke user process on attention condition 6-SEP-1984 16:22:41 (CDORIVER.SRCINODRIVER.MAR;2 (69) | 


4 ; -SBTTL Poke user process on attention condition 


— 
oOo 


OOS F FMW OUT PB OO SS 


++ 
POKE_USER = Poke user process on attention condition 
; FUNCTIONAL DESCRIPTION: 


This routine is used when data is avaliable or the unit is shutdown. 
; The action is to declare the ast’s and send a message to the assoc. mailbox. 


: INPUTS: 


zw 
we 
“ 


Message type -- 0 if no message 
Unit ote redress ° 


OUTPUTS: 
RO = Low bit clear only if user is not notified 
R5 = UCB ADDRESS 


BOKE_USER: 


dh 

SSSI AAA AAA AAA AAA AA AAA A AA AAA A AAO 

DOO OM 178 F859 FF FET ETU ETE ETE TUTE CTU CTUETECTUCTU CTU CTOC RET U rv T UTI veer ie ey 
WR 9 OONAUE WN O OBNOAOUE WN" OOONOu 


3; POKE USER 
0 DSBINT UCBSB_FIPL(R5S) ; Sync to Fork 
43 D4 8 CLRL -(SP) ; Assume failure 
51 OOAC C5 9£ MOVAB UCBSL_NO_AST(RS),R1 : Get AST Listhead 
61 05 0 TSTL (R1) : Empty ? 
ee 0 BEQL 17$ :; If so, branch 
6—E 06 0 INCL (SP) 3 Indicate success 
54 51 00 0 MOVL R1,R4 ; Copy List head address 
yn hUM b9 059 10$ MOVL (RI),RI : Address a block 
- s 0 BEQL 15$ ; If EQL then done 
1C Al 44 9 8 ay YE BO. SE VOEPEND DE | RETEARD ; Change param 
00000000 ' GF 16 063 15$: JSB G*COMSDELATTNAST 3; Deliver AST'S 
50 8€D0 4064 17$: POPL RO ; Set status 
065 ENBINT ; Enable interrupts 
05 4066 RSB 
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as : $f od -SBTTL TIMEOUT = TIMEOUT 
as. : 26 ; TIMEOUT = Timeout 
14s ? 8 ; FUNCTIONAL DESCRIPTION: 
1711 4074 ; This routine is entered on device timeout. The action is to shut 
a : e 3 the unit down. 
1711 ‘07? : INPUTS: 
tas : 4 5 R5 = UCB address 
1711 2080 3 OUTPUTS: 
1A 3B _ 
14. 4088 3 IPL = Device IPL 
1711 18S TIMEOUT: ; TIMEOUT OR POWERFAIL | 
08 E1 1711 1088 BBC #XM$V_STS_ACTIVE,- : Br BC device is not active 
08 44 A 1713 408 UCBSC_DEVDEPEND(RS) ,20$ 
0S €1 1716 4088 10S: BBC #UCBSV_POWER .- ; Br unless powerfail 
04 64 A5 1718 4089 UCBSW-STS(R5) , 30$ 
FCB2 30 1718 4090 BSBW  SCHED_FORK_POWERFAIL =; Create the error fork process 
05 Voie $83) 208: RSB 
171F 1098 ; Because some devices are flaky when driven as hard as DECnet drives the Line, 
171F 4094 ; we have added code here to clear the device in case it gets stuck. A side 
171F 4095 ; effect of clearing the device is that any transmit data it had outstanding 
171F yt ; gets lost. In order to handle that condition we will transmit enough pads 
171F 4097 ; to make up for the size of the message that we feel has been dropped. This 
171F $008 ; is decided by the state the device is in and the type of message is was 
fad $930 ; transmitting. | 
171F £193 : There is another case we must worry about here and that is if the reply 
171F 41 § 3; timeout timer has gone off. In that case the protocol takes the xmt away 
171F 4105 ; from the device, so that messages are not retransmitted out of order. 
171F $188 ; Thus we will check for this condition (the NOBSL_XMT_INPR field is clear) 
171F 4105 ; and if it occurs then we will send out pads to fill the messaege length, 
171F $196 ; with our best guess. We also put the ctrl msg address in the inpr field 
fat rh} 3; to fake the xmter into thinking that the message is still active. 
0082 C5) «=6B6 SC#AA7’‘'1#F £109 30$: INCW UCBSW_ERRCNT (RS) ; Incr the error counter 
3 17 ; 4110 PUSHR #*M<RT,R2,R3,R4,R5> 
$52. 0118 C5) DO 1725 4111 MOVL UCBSL_fT_PoRT(RS) .R2 ; Get the port vector 
08 16 172A a1i6 JSB @PORT_ABORT(R2) ; Reset the device 
48 16 172D 411 JSB @PORT_RESUME (R2) 
54 O0A8 f 4 \" 2 aie nt peste. _WO BUF FERCRS) LRA ; Get the no buffer 
51 42 Ad A 1737 2118 MOVZBL NOBSB_XSTATE(R4) ,R1 ; Get old state 
42 A464 OA 90 17 411 MOVB #nosc XMTERR ,NOB$B_XSTATE(R4) ; Set new state 
173F 2113 SDISPATCH R1,TYPE=B,- 
173F 6411 <- i function saction 
173F 4120 <NOSC_EMPTY 40$>,- 
173F 4121 <NO$SC “HEADER TIMEQUT_HEADER>, - 
173F 41 § $C_HCRC TIMEQUT_HCRC>,= 
173F 41 <NOSC_DATA TIMEOUT_DATA>,=- 
173F 4124 <NOSC_DCRC TIMEOUT_DCRC>,- 


1 4 
NODRIVER = VAX/VMS DMF32 Async DDMCP Line Driver 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 Page 101 
voee Oot TIMEOUT = TIMEOUT ; ~3Ep= 1984 Yorso:41 LORIVER.eReINODRiveR.mar:2 *2%° (94) 
173F 4125 <NO$SC_PADS TIMEOUT_PADS>,- | 
173F 41 : <NOSC"XMTERR TIMEOUT<XMTERR>, = 
1989 I ; 
42 06 94 1759 41 § 40$: CLRB NOBSB_XSTATE(R4) ; Reset state 
3 BA 175¢ 4130 POPR #*M<RT,R2,R3,R4,R5> 
et at 
175F 41 : eer ee 
53 42 A5_ OA Al 175F 4134 ADDW #10 ,UCBSW_DEVBUFSIZ(R5) ,R3 ; Assume xmt is gone 
TMS OMG ies cise Bat Mime Mempien MS) 
07 1F Al 33 E 1f0a ot $ BBS PINT OOU-EONTROL .XMTOSB_FLAG(RI) 108 
POF 4139 ; Set send field high enough to cover xmting of header, herc, data, and derc. 
53 1A Al 06 Al 176F 4141 ADDW3 #4,XMTQ$W_MSGSIZE(R1),.R3 
48 (11 17% 4169 BRB TIMEOUT_END 
1078 be: ; Set send Length field high enough to cover xmitng of header and herc 
53 06 60 1776 ai28 10$: MOVW #NOSC _HEADER_LEN,R3 
46 11 1779 slo BRB TIMEOOT_END 
1778 4149 TIMEOUT_HCRC: 
53 42 A5_ 04 Al 1778 4150 ADDWS #4,UCBSW_DEVBUFSIZ(R5),R3 ; Assume xmt is gone 
51 34 AG 09 1780 4151 MOVL NOBSL_XMT_INPR(R4) RI 
38 «613)«1784 413g BEQL TIMEOOT_END 
OA 1F Al 02~—sO#€EO 1786 $132 BBS #XMTQS$V~ CONTROL ,XMTQSB_FLAG(R1),10$ 
ree $122 ; Set send field high enough to cover xmting of hcrc, data, and derc. 
53 1A Al 04 Al 178B 4157 ADDW3 #4, XMTQS$W_MSGSIZE(R1),R3 
53 06 A2 1790 4158 SUBW2  #NO$SC_HEADER_LEN.RS : XMTOSW_MSGSIZ includes HEADER size 
2c (11 1793 4139 BRB TIMEOOT_END 
1732 219! 3; Set send Length field high enough to cover xmitng of herc | 
53 02 BO 1795 1163 10$: MOVW #2,R3 | 
27. 1798 4166 BRB TIMEQUT_END 
179A 4166 TIMEOUT_DATA: 
53 42 A5_ 02 Al 179A 416 ADDWS #2,UCB$W_DEVBUFSIZ(R5) ,R3 ; Assume xmt is gone 
51 34 AG 09 179F 41 8 MOVL NOBSL_XMT_INPR(R4),R1 
“. } 1745 ‘1 BEQL TIMEOOT_ERD 
HA oie) ; Set send field high enough to cover xmting of data, and derc. 
53 1A Al 02 Al 17A5 4198 ADDW3 #2, XMTQSW_MSGSIZE(R1),R3 ey 
53 06 A2 17AA 417% SUBW2 #NOSC_HEADER_LEN.R3 ; XMTQSW_MSGSIZ includes HEADER size 
1 1 VAD 4123 BRB TIMEOGT_END 
17AF 4177 TIMEOUT_DCRC: 
53 02 BO 17AF oiee MOV #2,R3 ; Set the field to send DCRC 
D 11 178e $129 BRB TIMEOUT_END 
17B4 t184 TIMEOUT_PADS: 


& = VAX/VMS DMF32 Async DOMCP Line Driver 16-SEP-19 0:47:19 VAX/VMS Macro v04-00 Page 1 
yOeeOur TIMEOUT = TIMEOUT” “Fee eee bio Ly ORI VES Bees yet ee mans2 ome 19, 
53 : & 1784 41 2 MOVW = #2, RB : Set the field to send DCRC 
42 Ad 1787 41 MOVB  #NOSC_PADS,NOBSB_XSTATE(R4) : Set to finish message 
4 11 178B 4184 BRB TIMEOOT_END 
178D 4185 
178) 41 : TIMEOUT_XMTERR: 
53 46 046 BO 17BD 41 MOVW  NOBSW_XMTERR_SIZE(R4),R3 
17C1 41 8 ;BRB  =—- TIMEOOT_END 
17€1 41 
171 4190 TIMEOUT _END: 
34 A4 «0DS O71 £138 TSTL NOBSL_XMT_INPR(R4) ; If NEQ then message avaialable 
06 12 1766 419 BNEQ  10$ 
34 AG = 0080 £3 43 1706 4194 MOVAL myeee CTL_MSG(R4) ,NOBSL_XMT_INPR(R4) ; Else set to fake xmter 
46 AG 3 BO 17CC 4195 10$: MOVW R3,NOBSW_RPTERR_SIZE(R4) - Set size to xmt 
O11c C 44 AG DE 1700 $138 VAL NOBSY PADS(R4) ,OCBS$L_TT_OUTADR(R5) ; set to send pads 
6120 CS 02 «498 1706 419 MOVZBW #2,UCB$W_TT. OUTLEN(RS) ; set Length 
108 C5 gt 8E 17DB 4198 MNEGB #1,UCB$B8_TT opr vag sao? 3; Set to send a burst 
— BA 1760 4199 POPR #*M<R1,R2,R3,R4,R5> 
05 17E2 4200 RSB 
17E3 4201 
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K 4 
32 Asyne DDOMCP Line Driver 19-560-13 4 90:47:19 AX/VM 
ance - :2 


1/0 rotuine SEP-1984 


pee 
: NOSCANCEL = Cancels all 1/0 in progress 


; If the NO buffer has not been alloacted that means the device is 
3; not running, pet normal return to decrement the reference count 

S$ condition can happen when the Line gets switched 
: from a static terminal port to a static ddcmp port. 
By looking at the channel number saved at Line startup time, cancel 
determines which entity (line or circuit) to shut down. Only on the 
last deassign to the channels does the buffer allocated for the 


3 and return. Th 


TT UCB's extension get deallocated. 


INPUTS: 
Re = channel number 
RS = current IRP address 
R4 = PCB address 
RS = UCB address 


IPL = FIPL 


OUTPUTS: 
RO - R3 are destroyed 


NOSCANCEL: 
MOVL 


NOV. YC BSL_NO_BUFFER(RS) ,RO 
oes Spee. PEDIRS) PERSE PIDERED 
CMPW = NOBSW_CHANL(RO) ,R2 
BEQL 10$ 
Baee Soy ToOuN_CIRCUET 

10$:  BSBW  SHUTDOWN_LINE 

15$: PUSHL 
TSTW UCBSW_REFC(RS) 
BNEQ 
BSBW  §CLEAR_NO_BUFFER 

20$ Aer RO 


30$: MOVZWL #SS$_NORMAL RO 
RSB 


04-00 
2:41 NODRIVER.MAR; 2 


-SBTTL NOSCANCEL = Cancel I/0 rotuine 


R8 = Cancel reason code (zero vanilla flavored cancel) 


; Get NOB addess : 

; If EQL device not active 

; If not starters PID then 

; do not process cancel 

; If EQL match on Line channel 


; Else shutdown the circuit 


If reference count is nonzero 
do not deallocate nob or disc port 


Set status from shutdown 
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MOeR OUT CLEAR_NO BU FFER = tlear NO buffer and di -SEP-1984 16:22:41 YORIVER. SREINODRIVER.MAR:2 ° (95). 
! i : 9 . -SBTTL CLEAR_NO_BUFFER = Clear NO buffer and disconnect the port 
! i ? ; CLEAR_NO_BUFFER - Clear NO buffer and disconnect the port 
1811 4 : ol fout ine is get tes on + last deassign to the device. It geet tecates 
1811 4254 ; the NO buffer which was used as an extension to the devices UCB. And 
! vy 2 55; it sleomneres with out deallocating the UCB from the port. 
1811 4 3 ; INPUTS: 
1811 4 28 : R4 = PCB address 
1811 4 3 RS = UCB address 
1811 4 60 ; 
1811 4261 ; IPL = FIPL | 
1811 4 $6 3 
1811 4 3 OUTPUTS: | 
1811 4264 ; ALL registers are preserved. 
1811 4265 ; 
1811 4 96 :- 
1811 4267 CLEAR_NO_BUFFER: 
OOFE 8F BB 1811 4268 PUSHR #°M<R1,R2,R3,R4,R5,R6,R7> 
50 OAS C5 9 1815 4269 MOVL § UCBSL_NO_BUFFER(R5S ,RO : If EQL buffer no allocated 
2D 13 181A 4270 BEQL 10$ 
00OA8 CS) «=—4 SCO181C 4271 CLRL UCBSL_NO_BUFFER(R5) ; Set buffer no longer available 
58 AO 0 1369 4 18 MOVL NOBSL_PIB(RO) ,R7 3; Save starters’ PI 
52 08 AO «3C 1824 427 MOVZWL ucesu SITE (ROS R2 > get size of buffer 
34 BB 1828 4274 PUSHR <R R5> 
00000000'GF 16 182A 4275 JSB G*CORSORVOEACMEM : Deallocate the block 
BA 1839 4 i: POPR  #*M<R2,R4,R5> | 
Is ? 4 3 Call the port driver to disconnect the port. Do not delete the UCB. 
51 0118 C5 DO 1832 4280 MOVL UCBSL_TT_PORT(R5) ,R1 
04 Bi 16 183 4281 JSB aPORT agi SCONNE CT(R1) 
60 AG) «657)—oiD1siédB3A C4 He CMPL R7,PCBSL_PID(R4) ; Current PID same as starter's PID 
09 12 #183E 428 BNEQ 10 ; NEQ then don't restore quota 
50 0080 C4 DO 1840 4284 MOVL PCBSL_JIB(R4) ,RO 3; Get J 
AO 52 C0 1363 ? + ADDL2 R2,JIBSL_BYTCNT(RO) ; Restore the byte count 
OOFE 8F BA 1849 4287 10$: POPR #*M<R1,R2,R3,R4,R5,R6,R7> 
05 1840 $538 RSB 
184E 4289 | 
| 


} 
mM 4 
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VOR OUT CLEAR_NO_BUF - Clear NO buffer and di amet 7 1 Seat DRIVER. SRCINODRIVER.MAR; 2 . (92) 


, 
m 


a -SBTTL SHUTDOWN = Shut down unit, device and/or protocol | 
SHUTDOWN_LINE = Shut down unit 
FUNCTIONAL DESCRIPTION: 

This routine is used to shut down the unit as a result of a 

setmode shutdown on the controller or a fatal error. The mapping 
registers are returned, a call is made to shutdown the circuit; and 
all quotas are returned. If this was the last deassign of a channel 
to the device then the NOB is deallocated. 


INPUTS: 
R5 = UCB address 


For SHUTDOWN_LINE_ALT 


R1 = 0 if DTR can be dropped on shut down 
1 if DTR can not be dropped on shut down 


Sete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge 
+ 


WOW FMM MMM MMM MMMM mMmmmmmmrmrmrncnicrnicrienecrnicricricyy 


1 4 { 
1 4 { 
1 4 { 
1 5 { 
1 4 { 
1 4 4 
1 4 / 
1 4 / 
184E 4 | | 
1 4 / 
1 4 / 
1 4 / 
1 4 / 
1 4 / 
1 4 t 
1 4 ( 
1 4 ( 
1 4 ( 
1 oe ( 
1 431 
1 431 ( 
1 431 OUTPUTS: ( 
1 431 R5 = UCB address ( 
1 $3! R6 -_R9 are preserved ( 
! ? : RO-R3 are destroyed. | 
1 43] SHUTDOWN. LINE: ; Shut down unit ( 
51 01 400 1 43) flov #1,R1 ; Do not dealloacte NOB | ( 
185 431 SHUTDOWN_LINE_ALT: ( 
06 €1 1851 432 | #NO_DS_V_INITED,- ( 
05 68 AS 1 3 432 UCBSW_BEVSTS(R5S ,5$ ; BR if not inited ( 
06 #€0 1 432 BBS #UCB$T_ONLINE,- ( 
06 64 AS 1858 4 UCBSW_STS(R5) ,10$ ; Br if online ( 
50 2004 8F 3c 1858 4 5$: MOVZWL #SS$_BEVINACT,RO ; Set status ( 
05 } ? $3 RSB 3 ee. and return | 
O3DC 8F 6B : } ? 108: PUSHR #*M<R2,R3,R4,R6,R7,RB,R9> ; Save the registers | 
64 AS 21 AA 1865 4 BICW #UCBSM_POWER!- ( 
1869 4 UCBSM_TIM,UCB$W_STS(R5) ; Reset device status ( 
AA 1869 4 BICW #*C<NO_DS_M_XMTING!- ; Clear all but xmt off ( 
186A 4 NO_DS_M_RCVING!- 3; fev o ( 
186A 4 NO_DS_M 1.00? _SUP> = 3; internal loop ( 
68 AS FECF 8F | oA ? uCBSW_BEVSTS(RS) 
186F 4 ( 
} of ? 3 Shut down the circuit | ! 
5 ge 1 of 4 PUSHL 1 : Save NOB deallocate status { 
9066 0 1871 434 BSBW SHUTDOWN_CIRCUIT 3; Shutdown the circuit { 
54 O00A8 C dO ' eS 2 ? MOVL UCBSL_NO_BUFFER (RS) ,R4 3; Get NOB address | 
1879 43435 ; Stop the DDCMP timer. First set up registers with params for call { 
: 4s ? ? 3; then make the call to the protocol. 
39 4 1879 434 PUSHR #*M<R4,R5> | 
56 A 1878 434 MOVZBL #DLKS$C_STOP_TIMER,R6 ; Set up R6 with the DDCMP comm | 
| 
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SOMFMD OL MS BNF ON DAAAAA LIMO OMIUIVIVUTIM MM ey 
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CoCo C0 C9 C9 O99 C8 SIN SIN NNIO Oo 


BICB 


COOONAUSW OW 


JSB 
POPR 


PEALE QAPLAL ALAA MIMI 


NOUS WO OO NAME WN OO OOONAUIE Wi 


CLRL 
MOVZWL 
PUSHR 


ADOL 
20$: MOVZWL 
POPR 
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SHUTDOWN = Shut down unit, device and/or EP-1984 16:22:41 


“S$ 

R7 

R9 
NOBSA_PRO_BUFFER(R4) ,R5 
DOCMP 


R5,RO 
#*M<R4,RS> 


MS Macro V04-00 

ER.SRCINODRIVER.MAR; 2 
R all _ registers 
ee 


r 
up R5 with TF block addr 
LL protocol 


#DPTSM_NOUNLOAD ,DPTSTAB‘ DPT$B_FLAGS 


3; Deallocate the protocol buffer 


NOBSA_PRO_BUFFER(R4) 
UCBSW SIZE (RO) .R2 


<RZ,R4,R5> 
G* COMSORVDEALMEM 
#°M<R2,R4,R5> 


NOBSL_PID(R4) ,RO 
G*SCHSG -PCBVEC.RI 


NOBS$W-QUOTA(R4) ,R1 
NOBSW"QUOTACR4) 


R6,R7 
o$ 


PCBS JIB(RO) ,RO 

R2, JIBSL_BYTCNT (RO) 
S*#SS$_NORMAL ,RO 
#AM<R27R3,R4,RO,R7RB,RO> 


; Clear all knowledge of protocol bu 
; Get the size 


; Dealloc the buffer 


3; Restore the buffered 1/0 quota and protocol buffer quota to the starter 
MOVZWL 
MOVL 


Get pid of last starter 


; Address PCB vector 


Get PCB of owner 


; Save pid of PCB 
; Save PID of starter 


Get quota 

Clear quota returned 

Get bytes quota to return 
Restore drop DIR status 

Do the PIDs match 

If NEQ no don't return quota 
Get JIB 

Return byte count quota 

Set status 

Save the registers 
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v04-001 SHUTDOWN = Shut down unit, device and/or 6-SEP-1984 16:22:41 ([CDRIVER.SRCINODRIVER.MAR;2 (76) | Ss 

1 4389 | 1| 

1BE0 2390 :+4 | I 

} 3 ; 4 ; SHUTDOWN_CIRCUIT = Shut down device and protocol i 

1BE0 4 $8 : FUNCTIONAL DESCRIPTION: ! | i 

1 3 4395 ; This routine is used to shut down the circuit as a result of a setmode L 

18E0 4 39 ; shutdown on the tributary or on the controller or by a fatal error on L 

18E0 4397 ; the device. The routines frees allocated blocks; completes IRP's with M 

SES : i: ; the active bit clear; and halts the protocol. n 

é I 

1BEe rts 3 INPUTS: | M 

aed mrt ; RS = UCB address “ 

1BE0 2208 OUTPUTS: | " 

18E0 4404 ; R5 = UCB address M 

18EO0 4405 ; R6 -_R9 are preserved | M 

1SES ret ; RO-R3 are destroyed. | : 

18E0 4408 SHUTDOWN CIRCUIT: | x 

06 44 AS 0B 4 18€0 4409 #XM$V_STS_ACTIVE,UCBSL_DEVDEPEND(R5),10$ ; If BS then trib is active La} 

50 2004 8F C 18€5 4410 MOVZWL #SS$_BEVINACT,RO ; Else set status and return | NI 

OF bee eta _ | N 

O30C 8F 88 18EB 2613 10S: PUSHR #*M<R2,R3,R4,R6,R7,R8,R9> 3; Save the registers | NI 

68 AS 0430 BF oA 18EF 41h BISwW #<NO_DS_t_XMTING!~ ; Set the xMTer and | wi 
- : er o 

Ie $718 NO_DS_M_SHUTDOWN> ,UCBSW_DEVSTS(R5) ; and set device is shuting dow " 

18F5 4418 ; What we are about to do is in direct violation of the DDCMP standard. Ni 

18F5 4419 ; But as it is we can not think of what else to do. If anyone out there | NI 

18F5 4420 ; has a better Suggestion please feel free to send it to us. We are however NI 

18F5 4421 ; going to abort the receiver and tranmitter in the next few instructions. | NI 

18F5 44 § ; The ddcmp standard says that the transmitter should not be aborted, but Ni 

18F5 4423 ; in order to make this true under all conditions we would have to NI 

ore <2 : ; wait at this spot for as much as 90 seconds. | ~ 

18F5 st36 DSBINT UCBS$B_DIPL(R5) | NI 

52 0118 CS DO 18FC 4427 MOVL UCBSL_TT_PORT(RS) ,R2 ; Get the port vector NI 

20 B2 16 1901 4428 JSB @PORT_ABORT(R2) ; Reset the device NI 

24 B2 16 1904 4429 $B @PORT_RESUME (R2) Ni 

54 00A8 C5 DO 1907 4430 MOVL UCB$L_NO_BUFFER(RS) ,R4 ; Get NOB address NI 

42 AG 94 190 4431 CLRB NOBSB-XSTATE(R4) ; Reset transmitter state N 

F7BB 830 = 190F mek} BSBW START_RECEIVE ; Reset receiver state Ni 

138 Seu 

4 ret ; Clear any receives or transmits currently inprogress | - 

56 630 a 00 + 4 43? spy NOBSL_RCV_INPR(R4) ,R6 : If EQL then on receive pending | " 

30 AS 4 1918 4439 CLRL NOBSL_RCV_INPR(R4) : Clear receive from inprogress N 

24 B46 66 OF 191B 4440 INSQUE (R6),aNOB$SQ FREE+4(R4) ; Queue to free queue N 

51 34 A4 0 191F 4441 208: MOVL NOBSL_XMT_INPR(R4) ,R1 : Comp XMT's on norepress Q | N 

oC 6S CN? : 7236 BEQL 3 ; If EQL none to complete N 

34 AG «24 O19 444 CLRL NOBSL_XMT_INPR(R4) ; Clear transmit from inprogress N 

02 €0 1928 4444 BBS #XMTQSV_CONTROL,- :; If BS then control message N 

04 1F Al 192A 4445 XMTQ$B_FLAG(R1) , 308 : don't put on post queue N 


woreayee 
v04-001 


2c B46 é61 
54 

57 OAC C5 

0 67 

18 

56 2 Ad 

52 4 ad 
54 00000000'GF 
54 6442 
00000000 ' GF 

dB 

54 

56 28 B4 
24 

13. OA A6 
12 

53 OC A6 
EE 

1 56 

38 ASC 
FC43 

E2 

17 OA A6 
2D 

24 B4 66 
D6 

56 20 A4 
08 

56 10 A4 
02 

1D 

50 600 66 
40 AG 42 A 
54 
00000000' GF 
54 

E8 


53 18 B4 
09 
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OE 1920 
1931 
1934 
1934 
1934 

DD 1934 

9E 1936 

DO 1938 

+ He 3 

HS 194 

C 1944 

DO 1948 

DO 194F 

16 1953 

11 1959 

8ED0 1958 
195E 
195E 
195E 

OF 1325 

1D 196 

91 1964 

12 1968 

DO 196A 

13 196E 

0 138 
C 197 
0 1977 

11 197A 

91 197C 

12 1980 

OE 1982 

11 1986 
1988 
1988 
1988 

9E 1988 

10 198C 

9E 1385 

10 199 

11 1994 
1996 

OF 1996 

1D 199A 

AO 199¢ 

DD 19A1 

16 19A3 

8EDO 19A9 

11 19AC 

05 19AE 
19AF 
19AF 
198 
198 
198 

OF 198 

1D 1987 


INSQUE 
ENBINT 


16-SEP-1984 0 
6-SEP-1984 16: 


(R1) ,@NOBSQ_POST+4(R4) 


4 


0:47:19 phen: Macro V04-00 
6:22:41 (Dd 


RIVER. SRCINODRIVER.MAR; 2 


; Insert to be completed 
; Return to fork level 


3; Deallocate all the attention AST control blocks 


3; Clear 
50$: 


55$: 


tp to tens Ss 


the post queue 


REMQUE 
BV 


@NOBS$Q_POST(R4) ,R6 
[RPSB_TYPE(R6) , S*#DYNSC_BUF 10 
XMTQSL_IRP(R6) ,R3 

50$ 

R6,R1 

#S$$_ABORT, IRPSL_MEDIA(R3) 
TRANSMIT _10_DONE 
IRPSB_TYPE(R6),S*#DYNSC_NET 
(R6) ,@NOBSQ_FREE+4(R4) 

50$ 


; Deallocate all receive buffers 


60$: 


70$: 


MOVAB 


NOBSQ_FREE(R4) ,R6 
NOBSQ_ATTN(R4) ,R6 
70$ 

90$ 

@(R6),RO 


UCBS$W_DEVBUFS1Z(R5) ,NOBSW_QUOTA(R 


5 CORSORVOEAL MER 
70$ 


BUG_CHECK NOBUFPCKT,FATAL 
3; Complete all associated receive 10 packets 


REMQUE 
BVS 


@NOBSQ_RCVS(R4) RS 
100$ 


; Address List head for AST's 
; rig iy Be the List? 


Sete Ge tee 
oo 
> 
m 
o 
e 


; Get PID index 


Get PCB 
Flush the attention AST's 
Continue until done 


Get next buffer to complete 
If VS then no buffer found 

If NEQ then not XMT buffer 

If EQL then no IRP to comp 

Set up R1 for branch 

Set abort status and compl 

the request 

If EQL then RCV buffer 


Put on free Q to complete 


; Get queue Listhead 
; Empty queue 

; Get queue Listhead 
3; Empty queue 

3; Continue 


; Get buffer 

; If VS then none 
4) ; Restore quota 
; Deallocate buffer 


; Loop 


: If VS then queue is empty 
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dD 5 
NODRIVER = VAX/VMS DMF32 Async DOMCP Line Driver 16-SEP-1984 00:47:19 X/VM 
vival i : Be 9b:s5:1? yaniv 
Set status and size 
Co 
Br 


SHUTDOWN = Shut down unit, device and/or 6-SEP-1984 


38 A3 éc 3 1989 $2 3 MOVZWL #SS$_ABORT,IRPSL_MEDIA(R3) : 
FCOB 19BD 4504 BSBW {0 DONE ; mplete the request 
11 Ie $2 5 os ; Branch to get next IRP 
13¢ $2 > ; Complete all XMITS 
19¢ rk § 100$:  DSBINT UCB$B_DIPL(RS) Lock out interrupts 
64 AS 03 AA 1969 4510 ICW #UCBSA_TIM!UCBSM_INT,UCBSW_ sTs(R5) 
19CD 4511 ENBINT ; Reset interrupts 
38 B 19D $216 PUSHR #*M<R3,R4,R5> ; Save registers 
56 04 «9A (19D2 «451 MOVZBL #DLKSC Ushi INT ,R6 ; Set up to halt the protocol | 
57 98 A 1905 4514 MOVZBL POLKSH STOP,R? 
C 1908 4515 CLRQ R | 
55 OC A4 4 19DA $218 MOVL NOBSA_PRO_BUFFER(R4) ,R5 ; Set protocol buffer 
61F* 30 19D— 451 BSBW CMP 
56 28 AS —E 19&1 4518 MOVAB TF$Q ‘pte! Soe ; Get queue to complete from 
38 BA 19€5 4519 POPR #*M<R3,R4,R5> ; Restore the registers 
51 00 8g OF 19€7 4520 110$: REMQUE a(R6), 3 sompsete all XAT's 
1 1D 19—EB 4521 BVS 120$ § S then no more to cmplt 
13 OA Al 91 19ED 45 § CMPB XMTQ$B_BUFTYP(R1),S*#DYNSC_BUFIO ; Branch NEQ not a valid buff | 
BC 12 19F1 45 BNEQ 
3 60C Al 0 19F3 4524 MOVL ret IRP(R1) ; Get associated IRP | 
3B As -2C) 0 3CCO19F7? 4525 MOVZWL ABORT ines ~MEDIA(R3) : Set aborted status 
FBBF 30 19FB 4526 BSBW TRANSMIT 10_D : Complete the 1/0 
E7 11 I9FE 4527 BRB 140 ; Branch to get next 
50 01 3C 1A00 4528 120$: MOVZWL S*#SS$_NORMAL ,RO ; Assume shutdown 
O30C 8F BA 1A03 4529 POPR #OM<R27R3,R4,R6,R7,RB,ROD ; Save the registers 
S te 
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a —— 


ve 
Get address of verification table 
Get NOB address 

; Do the validation 

Restore R4 

Return to caller 


& 
MOVAB LINE _PARAM,R1 
MOVL ucesC WO BUF FERCRS) 6 
10$: BSBB VALIDATE-P 
POPL R4 


RSB 
-DSABL LSB 


VALIDATE Validate P2 buffer parameters 


Save registers 
NB:R1 


P2: 
PUSHR #*M<R1,R2,R3,R5,R6,R7,RB,R9> 
must be on top of stack 


O3SEE 8F BB 


| —E § 
NOOR IVER = VAX/VMS BAF Se Async DDMCP Line Driver 19 3Ee- 1388 90:37:19 ary: Macro V04-00 Page 11 
v04=- VALIDATE _P2, Validate P2 buffer paramet 6-SEP-1984 16:22:41 ([DRIVER.SRCINODRIVER.MAR;:2 (77) 
1A 4533 -SBTTL VALIDATE_P2, Validate P2 bul ter parameters 
1A 4534 ~SBTTL VALIDATE P2_TRIB, Vel idate P2 buffer with Trib param 
- ? 5 ~SBTTL VALIDATE P2_UCB, Validate P2 buffer with UCB 
1A t3 5 344 
1A 45 8 ; VALIDATE_P2 = Validate P2 buffer parameters 
1A08 4539 ; VALIDATE-P2_TRIB = Validate P2 buffer with trib parameters 
1A08 rere ; VALIDATE_P2_UCB = Validate P2 buffer with UCB 
1A0 $246 ; This routine is called to validate the P2 buffer parameters. The parameters 
1A08 4543 ; are checked against a parameter table which verifies that the minimum value 
1 t2te ; and maximum value is not violated, and that invalid status flags are not set. 
1A0 $2t8 ; Inputs: 
1A08 4547 ; 
1A08 4548 ; Ri = Address of parameter verification table (VALIDATE_P2 entry only) 
1A08 4549 ; R2 = Status word from UCB 
1A08 4550 ; R3 = IRP address 
1A08 4551 ; R4 = NOB or trib parameter block address for value 
1A08 £226 ; checking (VALIDATE_P2 entry only) 
1A08 4553 ; R5 = UCB address 
1A08 4554 ; 
1A08 4555 ; IPL = FIPL 
1A08 $328 3 
1A08 4557 ; Outputs: 
1A08 4558 ; 
1A08 4559 ; RO = status return of parameters 
1A08 4560 ; 
1A08 4561 ; If no error: . 
1A08 £266 ; Ri = Address of parameter verification table 
1A08 4563 ; If error: 
1A08 4564 ; R1 = Bad parameter value 
1A08 4565 ; 
1008 $298 3 ALL other registers are preserved. 
1A08 4567 ; 
1A08 4568 ;-- 
1A08 4569 -ENABL LSB J 
1A08 4570 VALIDATE _P2_TRIB: ; Validate P2 buffer with TFB 
54 DD 1A08 4571 PUSAL R ; ; Save R4 5 
51 €6C6 CF 9E 1A0A $326 MOVAB TRIB_PARAM,R1 ; Get address of verification table 
54 OOA8 CS DO 1A0F 457 MOVL UCBSC_NO_BUFFER(RS) .R4 ; Get NOB address 
54 60 AG GE 1A14 4574 MOVAB NOBS$Z_-DDTMP(R4) ,R4 ; Get address of block to set 
1A18 4575 ; DDCMP parameters 
0c 11. «#1A7 $278 a: 10$ 
1A1A 4577 VALIDATE_P2_UCB: Validate P2 buffer with UCB 
54 OD 1Al $278 PUSAL Save R4 
1A1C 457 
1A 4580 
1A 4581 
1A 45 ; 
1A 45 
JA 4584 
ae 
1ASe 889 
1A 4588 
1A 4589 


56 2C Ad 00 MOVL IRPSL_SVAPTE(R3) ,R6 Get system P2 buffer address 
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NODRIVER = VAX/VMS_ DMF32 a nc DOMCP Line brtses 16-SEP-1984 00:47:19 VAX/VMS Macro V04-00 Page 111 
iva VALIDATE_P2_uCB, Validate pb buffer wit 6-SEP- 1382 1 Set LORIV RIV ER. SREINODRIVER. MAR; 2 (77) 
1A34 459 BNEQ 10$ ; Br if a system buffer 
9083 i 1A36 4 3 BRU «1508 : Else, leave 
58 32 A C 4A 4 3 10$ MOVZWL IRPSW_BCNT(R3),R8B ; Get size. of P2 buffer 
28 06 £8 1A3D 459 DIVL ; Calculate number of parameters 
6 66 OD 1A 4594 MOVL  P2B_L_POINTER(R6) ,R6 : Point to start of P2 data 
1m? 4396 ; Loop to check next parameter in P2 buffer 
5 86 3C 1A4 $238 30$: MOVZWL + do R ; Get parameter type from P2 
5 86 600 18 459 MOVL 833° R ; Get parameter value from P2 
6— 00 1A 4600 MOVE ),R7 : Get parameter table address 
sneer 4809 ; Loop to check P2 buffer parameter to Line parameter table 
59 87 "9 1A4C 4604 40S: MOVW (R7)+,R9 ; Get parameter + flags 
fs 13° 1A6F 4605 BEQL 1 ; Br if end of verify table 
50 59 OC ? Fe 142) £088 yd ay gran V_TYPE ,#PRM_S_TYPE,R9,RO : pergneters match? 
a3 B5 1Ag8 4608 TSTwW R7)+ : kip oltece word 
1A5A 4609 SKIP PRM_V_MIN,RO,R7 : Skip minimum value 
1A60 4610 SKIP PRM .V. “MAX, RY Re. 3; Skip maximum value 
1066 4611 SKIP = PRM“V TNVALION RI : Skip invalid flags 
DE 11 1a reat BRB 408" ; Try next parameter 
1AgE tele ; Match found - nullify if same value & check min,max,valid, invalid 
51 87 BO 1A6E £618 50$: MOVW (R7)+,R1 3; Get offset + width 
54 DS 1A71 461 TSTL R4 :; Is data structure present? 
2B «613~=CO1A73 $618 BEQL 100$ ; Br if not - gheck values 
53 51 02. O€ EF 1A75 461 EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH,R1,R3 ; Get width onl a 
51 51 OE 00 EF 1A7A 4620 EXTZV #OFF-V “VALUE, #OFF “$ “VALUE, R1,R1 ; Get offset on 
51 54 CO 1A7F 4621 ADOL R4,RT ~ 3; Calculate eddress of datum 
1A8 46 ¢ CASE R3. TYPE=B,LIMIT=41,<- ; Br to handler 
i 46 60$,- : Byte value 
1AB82 4624 70$,- ; Word value 
sane re 5 80$> ;  Longword value 
1Age rh 2: Byte value in structure 
61 55 91 1A8C 4629 60S: CMPB R5,(R1) : Is this the same? 
08 «11 1Aar 46 : BRB 90$ > Check result 
ed re § 3; Word value 
61 55 B61 1A91 4634 70S: CMPW R5,(R1) ; Is this the same? 
03 11 1A96 46 5 BRB 90§ : Check result 
61 55 D1 1A96 46 $ 80$: CMPL R5,(R1) : Is this the same? 
oo Va 1098 46 te BNEQ 106$ ; Br if no - continue checks 
FA A6 B4& I1A9B 46 3 CLRW -6(R6) 3; Nullify the parameter code 
18 «+171 1AAS $379 BRB 1408 ; Try next parameter - skip checks 
05 59 —E1 1AA0 4642 100$: BBC HPRM y MIN,R9O,110$ ; Br if no minimum value 
87 of B1 1AA4 464 CMPW R5,(R7T+ : Is the value too small? 
05.59 OD Ef AAO C6eS 1108: BoE” PPRAV_MAX.RO.1308 $2 fs . ee 
87 98 B1 AAD 4646 "  CMPW RS CRIT pnp : Is the value too big? 
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R R = VAX/VMS DMF32 SEP=1984 00:47:19 VAX/VMS Macro v04-00 Pa 11 
VOen Out VALIDATE Po. UCB, alidate P2 buffer wit parte 9b: 33id) LORIVER. SREINODRIVER.MAR; 2 - (35) 
11 1A 1ABO0 4647 BGTRU 170% ; Br if yes ror 
05 33 § —1 1AB $3e8 130$:  ®68C #PRA_V PLS FP. 1A08 ; Br if no inyal ig flags 
2 ; 1AB6 464 BITw (R7)#,R 3; Check invalid bits 
: 1AB9 4650 BNEQ ; Br if on - error 
85 F inne re 1 1408: SOBGTR R8&,30$ ; Loop if more parameters 
50 oi 3C 1ABE 46 : 150$ MOVZWL S“#SS$_NORMAL ,RO ; Set success return 
6 11 1A te2e BRB 180$ ; And return 
6 50 3¢€ IAC $G28 170$: MOVZWL RO, (SP) ; Return bad parameter code 
1AC6 465 ; * R1 Must be on top of stack 
30 4 Xx 1AC8 $028 MOVZ7WL #SS$_BADPARAM,RO 3; Set error return 
O3EE BF BA 1AC9 4659 1808: POPR  #*M<R1,R2,R3,R5,R6,R7,RB,R9> |: Restore registers 
05 ACD 4660 RSB ; Return to caller 
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P 
B based on P2 


RO = destroyed. 
ALL other registers are preserved. 


UPDATE_P Update UCB SEP-19 6:22:41 (CDRIVER.SRCINODRIVER.MAR; 2 (78) | 

if -SBTTL UPDATE_P2, Update UCB/TRIB based on P2 buffer parameters 

4664 ;++ 

? és ; UPDATE_P2 = Update UCB/TRIB with P2 buffer parameters 

tee : This routine is called to update the UCB/TRIB with the F2 buffer gerescvere, 

rh ; The parameters are stored in the appropriate cells of the UCB/TRIB. 

4670 ; Inputs: 
: Ri = Address of parameter verification table 
3 R3 = IRP address 
3 R4 = NOB or ddcmp parameter block address for storing 
; RS = UCB address | 
: IPL = FIPL | 
: Outputs: 
U 
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PDATE_P2: ; Update the UCB/DDCMP parametr 
O3€6 8F 6B PUSHR #*M<R1,R2,R5,R6,R7,RB,RI> ; Save registers 
; NB:R1 must be on top of stack 
56 2C Ad 00 8 MOVL RPS$L_SVAPTE(R3) ,R6 ; Get system P2 buffer address 
6¢ 13 4690 BEQL ; Br if no system buffer 
58 32A 3¢ 4691 MOVZWL IRPS$W_BCNT(R3) ,RB ; Get size of P2 buffer 
58 06 C6 DIVL + R8 ; Calculate number of parameters 
56 666 ~—(O00 4693 MOVL P2B_L_POINTER(R6) ,R6 : Point to start of data | 
$332 ; Loop to get next parameter from P2 buffer 
| 
50 8 3 1697 108: MOVZWL (R6)+,RO ; Get parameter type from P2 
55 86 00 res MOVL (R6)+,R5 3; Get parameter value from P2 
57 =6€E ; o MOVL (SP) ,R7 ; Get parameter table address 
oro 3; Loop to store buffer parameter in UCB/DDCMP parameter block | 
59 ©6887 69 4708 208: MOV (R7)+,R9 ; Get parameter + flags 
7 -*% 4704 BEQL 7 ; Br if end of verify table 
51 59 C 98 EF F 4705 EXTZV #PRM_V_TYPE,#PRM_S_TYPE,R9,R1 ; Get type field 
1 61 F547 $ CMPW RO,RT ; Parameters match? 
1 13 FB 47 BEQL ; Br if yes 
8 B5 FA 4708 TSTW (R7)+ ; Skip offset word 
FC 4709 SKIP PRM_V_MIN,RO,R7 ; Skip minimum value 
4710 SKIP PRM_V_MAX.R9,R7 ; Skip maximum value 
4711 SKIP —- PRMVINVALID,R9,R7 : Skip invalid flags | 
dB Sté«éd m#YWA: : $76 BRB 3; Try next parameter 
, aite 3 Match found - nullify if same value & check min,max,valid, invalid 
1 7 60 1 oris 30$: MOVW (R7)+,R1 ; Get offset + width 
4 3 2 f EF 15 471 EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH,R1,R2 ; Get width only 
_ 2 . - « oR1,R1 ; Get offset only 
1 1 E EF 1 4718 EXTZV W#OFF_V_VALUE,#OFF_S_ VALUE,R1,R Get offset 
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RIB based on P -SEP-1984 
ADD 
CAS 


C 
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D 
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50$ 
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; Byte, word, longword value in structure 


MOVB R5,(R1) 
BRB 
MOVW R5,(R1) 
BRB 


MOVL (ny) 
SOBGTR Ras) 


POPR #*M<R1,R2,R5,R6,R7,RB,RI> 
RSB 


Line Drives 16-SEP-1984 90: 2:47:19 or o v04-00 
6:22:41 RIVER. SRCINODRIVER. MAR;2 


alculate address of datum 
handler 


on we 
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Longword value 


; Store byte value 
; Store word value 


Store longword value 
if more parameters 


Restore registers 
Return to caller 
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REYURNLPD, Return UCB/DDERP buffer para ‘S-SEP-1984 feices4t EDRIVER.SREINODRIVER.MAR:2 "2%" (79). 


-SBTTL RETURN_P2, Return UCB/DDCMP buffer parameters 


venus 


WAG 
Ooc~ 


++ 
RETURN_P2 = Return P2 buffer parameters 
This routine is called to return the UCB/DDCMP buffer parameters. 


Inputs: 
Ri = Address of return table (same format as verification table) | 

R2 = Address of user buffer in which to return the parameters 
= IRP address 
= NOB or DDCMP paramter block address for storing 
RS = UCB address 
IRPSW_BCNT(R3) = Size of transfer | 


Outputs: 


RO = destroyed. 
ALL other registers are preserved. 
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RETURN_P2: ; Return P2 buffer parameters 
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O1E6 8F 8B PUSHR #*M<R1,R2,R5,R6,R7,R8B> : Save registers | 
6 52 0 MOVL R2,R6 ; Get user buffer address 
9 1 BEQL 60 ; Br if no system buffer 
58 32 AS 5 MOVZWL IRPSW_BCNT(R3) RB ; Get size of buffer 
58 06 C6 DIVL #6,R8 ; Calculate the number of param 
; Loop to return next parameter 
55 81 89 69 10$: MOVW (R1)+,R5 ; Get parameter + flags 
44 —OY 7 BEQL ; Br if end of verify table 
57 55 oc 00 «CF 7 EXTZV #PRM_V_TYPE,#PRM_S_TYPE,R5,R7 3; Get type field 
HS 57 ~=B0 7 MOVW R7, (R6S+ ; Return parameter 
57 81 BO 7 MOVW (R1)+,R7 : Get offset + width 
52 57 O02 OF EF 7 EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH,R7.R2 ; Get width onl 
a 3 00 «OF 7 EXTZV #OFF_V_VALUE,#OFF_S_VALUE,R7,R7 ; Get offset only 
5 54 CO 7 ADOL R4,R ; Calculate address of datum 
7 CASE Re TYPE=B,LIMIT=#1,<- ; Br to handler 
7 ,- ; Byte value 
7 0$,- ; Word value | 
9 40$> ;  Longword value 
44 ¢ ; Byte, word, longword value in structure 
86 67 9A 187 4 208: © MOVZBL (7), (R6)* ; Store byte value | 
86 ef * 44 § 30$: Boye ghz). (R6)¢ ; Store word value | 
86 $7 DO 18 3 $08: MOVL (R7), (R6)+ ; Store Longword value 
B 50$: SKIP PRM_V_MIN,R5S,R1 ; Skip minimum value 
B 0 SKIP PRM_V_MAX,R5,R1 ; Skip maximum value 
r 91 SKIP PRM y INVALI6,R5,R1 : Skip invalid flags 
B7 58 «FS 3 3 SOBGTR R8,TOS ; Try for more parameters 


5 . . | 

REYURNPS, Return UEB/DOEAP* but river "SSEP=1SBS 98:52:27 HORIVER. SRESRoDRIvER.man;2 "29° 138, 

O1E6 BF Ba ie 1898 $738 60$: POPR #*M<R1,R2,R5,R6,R7,RB> ; Restore registers 
BIC 47 RSB ; Return to caller 
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2 parameter from P2 buffer 


ee. 
wooR Iyer = VAX/VMS DMF32 Async DDMCP Line Driver 16-SEP-1984 00:67 
Vv UNPACK_P2_BUF, Unpack a P2 parameter fr 6-SEP-1984 16:22 
Pp 


~SBTTL UNPACK_P2_BUF, Unpack a 


++ 

UNPACK_P2_BUF = Unpack a P2 parameter from P2 buffer 

Functional description: 

This routine is called to get a P2 parameter from the P2 buffer. 


3h 
1B9D 1398 ; 
1B9D 4 ? 3 
1B9D 4 ; 
1B9D 4 ¢ : 
iBop CBOe 
1B9D 4805 : 
44 2 88 3; Inputs: 
1B9D 4 o8 : R1 = Parameter type code 
1B9D 4 : R3 = IRP address 
1890 4810 ; R5 = UCB address 
1890 4811; 
138 Sfg | overs: 
1890 4814 ; RO = Low bit set if specified Parameter type code is found in P2 
18% 2 1? 3 R2 = Parameter value if success else destroyed 
1B9D 4 19 : ALL other registers are preserved. 
1B9 4819 ; 
1B9D 4820 ° 
1B9D 4821 UNPACK_P2 BUF: 3 Unpack P2 buffer 
OOEO 8F BB 1B9D 48 ¢ POSHR #*M<R5,R6,R7> : Save registers 
56 ac As o9 1B) 48 ; MOVL RPSL_SVAPTE(R3) ,R6 : Get system P2 buffer address 
: Br none 
57 32A 3¢ BA? 4825 MOVZWL IRPSW_BCNT(R3) ,R7 ; Get size of P2 buffer 
57 06 C6 1BAB rt 6 DIVL #6,R7 ; Caculate number of parameters 
56 0C A6 SE IBAE 4827 MOVAB P26 _T_DATA(R6),R6 : Point to start of data 
$0 01. OSC 182 rt 3 MOVZWL S*#SS$_NORMAL ,RO ; Assume success 
1883 4880 3; Loop to check next parameter in P2 buffer 
55 86 3C ibe $836 10$: MOVZWL 9 (R6)+,R5 ; Get parameter type from P2 
52 86 00 1888 483 MOVL (R6)+,R2 ; Get parameter value from P2 
55 51 61 1888 rt 4 CMPW R1,R5 ; Parameters match? 
03 13 1BBE 4835 BEQL ©: 308 : Br if yes 
F2 57 =F 5 186 $e § SOBGTR R7,10$ ; Br if more parameters 
50 D4 1BC i838 eps: CLRL RO ; Return error 
OOEO 8F BA 1BC5 4 0$: POPR #*M<R5,R6,R7> ; Restore registers 
05 18C9 4840 RSB 3; Return to caller 
1BCA 4841 
1BCA 4 4g 
1BCA 484 


| 
| 
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Symbol table 6-SEP=1984 16:22:41 CDRIVER.SRCJNODRIVER.MAR;2 (80) 
$$$ = R 02 DEVSM_ODV 2 0000 | 
$S$SOF F = 006 DEVTIAER 164C R 03 
S$STYP = DLASA_PO 4 | 
$$$WID = 400 DLASA-X R | 
. DLASC-ADDR_LENGTH | 
ABORT1O 4DD R 03 DLASK-ADDR-LENGTH | 
ACBSL_KAST = 01 DLK$B-MAL | 
A 08 DLKS$B“MAXREP 0 | 
ADDCMP_ VECTOR 0078 R LKSB"MAXSEL 0 | 
ADDFREELIST 1078 R “ARB 09 
ALLOC_BUFFER 0007A5 R DLKS$B-MSGCNT 0000001 | 
ALLOC ~P2BUF 0 tt R “TRIB : 00 | 
ALT_RCVFDT 0000488 R DLKSC"ACTNOTCOM = 9 | 
ATS-NULL eeeeeere =X : DLKSC-CHAR = 00000005 
BUGS_NOBUFPCKT eeereeee x 0 LKSC-RCVMSG = 00000001 | 
CHECR_BUFS 00000AE5 R 3 LKS$CREQEBA = 9000003 
CHECK ~P 00 0811 R 03 DLKSC"START_ TIMER = 90000006 
CHECK"P2 QO00AE7 R 03 DLKSC-STOP TIMER = 699000 
CHG_TRIB 900008 / R 0 DLKSC"USRIAT = 00000004 | 
CHG-UCB_NOB 00000B7C R 03 DLKSC~XMTMSG = 00000002 | 
CLASSS_CLASS_DEF = ett DLKSM—CLEAR 2 aad 
CLASS_BDT = 00000010 DLKSM~DATACRC = 00000004 
CLASS_DISCONNECT = 90000018 “GL = 00000004 
CLASS_DS_ TRAN = 0000000¢ DLKSM~HDRCRC = 00000002 
CLASS_FORK = 0000001¢ DLKSM~HDRERR = 00000008 
CLASS~GETNXT = 900000 6 DLKSM-LNTYP = 00000008 
CLASS_LENGTH = 000000 DLKSM_MAINT = 00000004 
CLASS~POWERF AIL = 00000020 DLKSM~MNTRCV = 00000080 
CLASS~PUTNXT = 00000004 DLKSM~MSGCNT = 00000010 
CLASS-READERROR = 00000014 DLKSM“MSGSENT = 00000001 
CLASS-SETUP_UCB = 00000008 DLKSM~PRSTERR = 0000000 
EAR-NO_BUFFER 00001811 R 03 DLKSM~QEMPTY = 9000009 
SDELATTNAST teteeeee =X 03 DLKSM~QFULERR = 000000 
COMSDRVDEALMEM teeeenee 03 DLKSM~RCVOVR = 699000 0 
COMSF LUSHAT TNS teeeeere =X 0) DLKSM~REPTIM = 00000080 
eeeeeeee =X 03 LKSM-REPWAIT = 00000100 
COMSSETATTNAST eeeeeeeer X 0) LKSM~SELTIM = 99000020 
COMP_RCV 90001372 R 03 DLKSMSELWAIT = 9900004 
COMP~RCV_ERROR 9000145 R 03 DLKSM~SETDEF = 00000800 
COMP~RCV~NOBUF FER 00 1381 R 03 DLKSM-START = 00000001 
COmM_RCvF BT 0 Botes R 03 DLKSM_STOP = Boo bOS eS 
COM"XMITFDT 0000383 R 03 LKSMSTRTRCV = 0000004 
COP~BUF F 0000409 R 03 DLKSM~TMREXPD = 0000800 
CRBSL_INTD = 00 4 LKSM~TRIB = 09 6 | 
CXBSC~ TRAILER = 4 KSM“XMTACK = | 
CXBSK~HEADER = 00000048 DLKSV~CRC = 0000001 
DATA_ERROR 0001426 R 03 DLKSV_DUPLEX = B88 8 
DC$_SCOM eereeeee =X 02 DLKSVMNTRCV = 000000 
DOBSL_DDT = 0000000C DLKSV_MSGSENT = 00 0 
DDCMP teereere XxX 03 DLKSV~PRSTERR = 1 
DDCMPSC_HEADER = 900 06 DLKSV“RCVACK = 8 
DEF_LINE_PARAM QOOOOOFE RG 03 DLKSV"SETDEF z 
DEF ~LINE~PARAMSZ = 06 DLKSV“STATYP = 0 
DEF~TRIB-PARAM F4RG 03 DLKSVTMREXPD = F | 
EF~TRIB-P = OA OLKSV"TRNLK : E | 
EvSM_1D0 = 04 0 DLKSV“XMTCMP = A | 
SM~NET = 0000200 DLKSVXMTERR : 4 | 
| 
| 
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NODRIVER = VAX/VMS DMF32 Async DOMCP Line Driver as at 9 00:47:19 ey Macro V04-00 Page 120 
Symbol table 6-SEP=1984 16:22:41 CORIVER.SRCINODRIVER.MAR;2 (80) 
IRP$W_BOF F = 8 00 NOSC_HEADER_HCRC = 900000 8 
IRP$SW_CHAN z 8 NO$C_HEADER-LEN = 009 $ 
IRPSW_FUNC = 00 NOSC_LINE PAR = FFF SF 
IRPSW_QUOTA B38 4 NO$C_NOBUFFER = 00000004 
IRP$SW_ST = Boch NO$C_PAD = QOOOFFFF 
JIBSL_BYTCNT = 48484 0 NOSC_PADS = 00000005 
LINE_PARAM 0 AO R 03 NO$C_SEAR_MSG = O88 308 
LINE -PRM_BUF SIZ = tT NO$SC-SET_CINE = 0000001 
MASKA = 00000080 NO$C_SOH = 00000081 
MASKL = 444444 OSC_SYN = 00000096 
MAX_RCVS = 00000004 NOSC_XMTERR = 0000000A 
MFOSB_ADDR td T BD bObD RG 63 
MFDSB_MSGID 0000000 NOSDPT 30 he ¢ 
MFOSB_NUMB 00000004 NOSF UNC TABLE tt 8 R 0 
MFDSB_RESP 00000003 NOSGE TNXT OOOO10FA R 03 
MFDSC_LENGTH 00000006 NOSGL_DPT aeeeneee =X 803 
MF DSK_LENGTH 00000006 NOSNUCL 0000144E R 03 
MFDSM_QSYNC = 00004000 NOSPORT_ TRANSITION 90001357 R 03 
MFDSM_SELECT = 00008000 NOSPUTNRT 00001274 R 03 
MFOSW_CNTFLG 00000001 NOSRCVFDT 00000485 R 03 
MFDSW_TYPFLG 00000001 NOSREADERROR Q000013EA R 03 
NMASC_DPX_FUL = 00000000 NOSREGDUMP Hd fe: R 03 
NMASC_DPX_HAL = 00000001 NOSSENSEMODEF DT 0000849 R 03 
NMASC_LINTN_LOO = 00000001 NOSSE TMODEF DT 0000052F R 03 
NMASC_LINCN_NOR = 00000000 NOSSETU 000013E8 R 03 
NMASC_LINPR_CON = 00000001 NOSSTARTIO 00000C20 R 03 

SC_LINPR_POI = 00000000 NOSUNIT_ INIT 00000323 R 03 

SC_LINPR_TRI = 00000002 SXMITFDT 00000344 R 03 
NMASC_PCCI_ARB = 00000479 NOB$SA_PRO_BUFFER BoObO NTS 
NMASC_PCCI_MST = QOOOOAFA NOB$B_BFN 0000007 
NMASC_PCCI_MTR = 0000047A NOB$B_CON 00000072 
NMASC_PCCI_TRI = 00000474 NOB$B_ DUP 00000071 
NMASC_PCLI~BFN = 00000451 NOB$B_PRO 00000070 
NMASC_PCLI~BUS = QOOOOAF 1 NOBSB_RSTATE 00000043 
NMASC_PCLI_CON = 00000456 NOB$B_SP 4 St 6 
NMASC_PCLI_DUP = 00000457 NOB$B_TY Q000000A 
NMASC_PCLI~PRO = 00000458 NOB$B_XSTATE 00000042 
NMASC_PCLI-RTT = 00000461 NOBSC_LENGTH QOOO00AA 
NMASC_STATE_OFF = 00000001 NOBSC_SETPRM 00000070 

STATE _ON = 00000000 NOBS$K_LENGTH QOOO00AA 

NOSALT_ENTRY 00000425 R 03 NOBSL_BLINK 00000004 
NOSCANTEL 000017E3 R 03 NOBSL_FLINK Boob OSS 
NOSCLASS_DISCONNECT 00001449 R 03 NOBSL-PID 0000058 
NOSCLASS_PORTFORK 90001340 R 3 NOBSL-RCV_DUETIM 980808 5 
NOSCLAS3S_POWERACTION 00144A R 0 NOBSL-RCV_ 000 
NOSCONTROL_INIT 00000308 R 03 NOBSL-XMT_DUETIM 0000003C 
NO$SC_CIR_PAR = FFFFF? 9 NOBSL_XMT~ INP 00000034 
NOSC_DATA = 0000000 NOB$Q_ATT Sob OES 
NO$C~DCRC = $ 0 O08 NOB$Q"FREE B88 0 $ 
NO$SC_DEF _BUFSIZ s ° 100 NOB$Q"POST 00000 
NO$C_DEL = QO00000F F NOB$Q_RCVS 000 Bhs 
NOSC_DLE = 00000090 NOB$W" CHANC 0000005E 
NOSC_DUETIM_TABLE_SIZE = 00000100 NOBSW"CHA 989 of 
NOSC_EMPTY = 000000 2 NOBSW_DEVBUF S1Z 4 
NOSC~ = 6 0 OBSW-ERR 54 
NO$C~HCRC = 00002 NOBS$W"FLAGS 0 28 
NOSC “HEADER = 00000001 NOBSW~ INDEX 005 
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NODRIVER = VAX/VMS DMF32 Async DDMCP Line Driver ot te 9 90:62:19 hey: Macro v04-00 Page 193 
Symbol table 66-SEP-1984 16:22:41 CDORIVER.SRCINODRIVER.MAR;2 (80) 
TT$C_BAUD_19200 = 00000010 UPDATE_P2 1ACE R 03 
TT$C “BAUD — = A VALIDATE _P 1A2C R 03 
TT$C“BAUD— 24 2 B VALIDATE-Po_TRIB 1A08 R 03 
TT$C_BAUD_ = 6 aT Na P2_UCB gia ne R 03 
TT$C_BAUD_ = C VECSL_INTTIAL = 00 $00e 
TT$C_BAUD_4800 = 000D VECSL_UNITINIT = 64 
TT$C_BAUD_5 = 00000001 XG_END QOO1BCA R 03 
Tet BAUD 600 = 444 7 XMSM_CHR_CTRL = 44'S 
TT$C_BAUD_ € = 0000 43 XMSM_CHR_DMC = 00000 $3 
TT$C"BAUD_7 s 9000008 XMSM-ERR-START = 00800000 
TT$C_BAUD_ 9600 = Q000000F XMSM_ERR_TRIB = 00400000 
TTYSA_PC_OMAENA z 900000¢ XMSM_STS_ACTIVE = 908 309 
TTYSM_PC_NOTI = 00 XM$V~CHR-HDPL = 00 
TTYSM_PC_PRMMAP = 00000008 XM$V_CHR_LOOPB = 00000001 
TTY$V_PC_XOFENA = BRR ORT R M$V_CHR_MOP = 00000000 
UCB$B_DEVCLASS = 0000004 XMSV_ERR_FATAL = BBD at § 
UCBSB_DEVTYPE = 00000041 SV_ERR_MAINT = 0000001 
UCBSB_DIPL = 0000005E XM$V_ERR_START = 00000017 
UCB$B_F IPL = 4 4 XM$V_ERR_TRIB = 00000016 
UCB$B-TT_OUTYPE = 000001 8 ¥M$V-STS_ACTIVE = 00000008 
UCB$B_TT-PARITY = 000000F XM$V~STS-BUFFAIL 2 9000000¢ 
UCBSB_ TYP = Q000000A XM$V_STS_ DISC = 0000000E 
UCBSC_TL_LENGTH = BORON ES xmTQ$B_B0F TYP 0000000A 
UCBSL_DEUCHAR = 00000038 XMTQ$B_FLAG raises ty 
UCBSL_DEVDEPEND = 00000044 XMTQ$B_MSGHDR 0000024 
UCBSL_DEVDEPND2 = 00000048 XMTQ$B_SLOT 0000001C 
UCBSL_FR3 = 00000010 XMTQS$C_LENGTH 0000002A 
UCBSL_IRP = 00000058 XMTQS$K_LENGTH 0000002A 
UCBS$L_NO_A QOO000AC XMTQ$L_BACC 00000014 
UCBS$L_NO_BUFFER 000000A8 XMTQSL_IRP 0000000C 
UCB$L_TT_OUTADR = 0000011C¢ XMTQ$L_TIMEND 00000010 
UCBSL_TT = 00000118 XMTQSM_CONTROL = 00000004 
UCBSM_INT = sae et XMTQSM_ INTERNAL = 00000080 
UCBSM_ONL INE = 0000001 XMTQSM_ONQUEUE = 00000001 
UCBSM_POWER = sie ie ot 3 XMTQSM_SELECT = 00000002 
UCBSM_TIM = 00000001 XMTQ$Q_LINK 00000000 
UCB$Q_TL_BRKTHRU = $444 XMTQ$V_CONTROL = sage t 
UCBSS_TT_DEVSTS_FILL = 00000008 XMTQ$V_ INTERNAL = 0000000 
UCBSV_INT = 00000001 XMTQ$V"SELECT = 00090001 
UCB$V_ONL INE = 00000004 XMTQ$W_BUFLEN 00000008 
UCBS$V_ R = 00000005 XMTQSW_DCRC 00000022 
UCBSV_TT_DEVSTS_FILL = BRO ROS XMTQS$W_ERROR 0000001D 
UCB$V_TT~HANGUP = 00000003 XMTQ$W_HCR 00000020 
UCB$V~TT~NOLOGINS = 9 90 F MTQSW_MSGOF F 90000018 
UCB$V~T7_NOTIF s 2 XMTQSW-MSGSIZE 000001A 
UCBSV_TT_TIMO = 00000001 
UCB$W_BOFF = sit it 
UCBSW_DEVBUF SIZ = 00 4 4 
UCBSW_DEVSTS = B28 0 
UCBSW_ERRCNT = 00 
UCBSW_REFC = C 
UCBSW_SIZE = 08 
UCBSW"STS = 4 
UCB$W_TT_OUTLEN = 1 g 
UCBSW"TT“PRICTL = 1 
UCBSW_TT SPEED = 38 OF4 
UNPACR_P2_BUF 1B9D R 03 
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:19 eyes: Macro V04-00 
1 DRIVER. SRCINODRIVER.MAR; 2 


Page 124 
9° 180) 


PSECT name Allocation PSECT No. Attributes 
» 6B ss 494464 ( 0.) 0¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 44 dE ( 656.) 1 he NOP IC USR CON ABS LCL NOSHR EX R WRT NOVEC BYTE 
$$$105_PROLOGUE 444 09 ( 166.) ¢ ( -) NOPIC USR CON REL LCL NOSH EXE RD WRT NOVEC BYTE 
$$$115_ DRIVER OOOIBCA (¢ 7114.) ( -) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC LONG 
terme ere e sence nee ew eee ee + 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00: 8-06 00:00:01.4 
Command processing 145 00:00:00. 00:00:04.3 
Pass 1 1439 4 9.79 00:0 teat 
Symbol table sort 0 00:00:04.88 00:00:18.87 
Pass 2 471 Bp 8: 8-8 be SER 
Symbol table output § 00:00:00. 0:00:01.56 
Psect synopsis output 00:00:00.0 BR 8 88 «BE 
Cross-reference output 9 88? 8328-8 bs Be 
Assembler run totals 209 00:00:55. 00:03:22.82 


The working set Limit was 3150 pages. 

316805 bytes (619 pages) of virtual memory were used to buffer the intermediate code; 

There were 250 pages of symbol table space allocated to hold 4324 non-local and 353 local symbols. 
source Lines were read in Pass 1, producing 36 object records in Pass 2. 

103 pages of virtual memory were used to define 95 macros. 
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Macro Library name 


_$255$DUA g: DRIVER.OBJJSYNCHLIB.MLB; 1 ? 
“$255$DUA28: (SHRLIBINMALIBRY.MLB; 1 1 
“$255$0UA28:(SYS.0BJJLIB.MLB; 39 

$255$DUA28:(SYSLIBJSTARLET.MLB;2 11 
TOTALS ‘all libraries) 58 


4796 GETS were required to define 58 macros. 
There were no errors, warnings or information messages. 
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